0 * I 






















































Excel VBA 

^UJIJLaJ 

JjSrt jt^V' 

2020 


di^ l^U£JI 

^LuIaII a 



- - < S u/iaII uiuJ 

J1a21j (j^a^j^l 

CC BY-NC-SA 

A 

^CJUdj ^djj C^jjJOLdiSl 6(Jj,A3t!i5l 
Ailjdd 

L_^jaI] (JaxJI L_budj 

^jjdiij (JIac-vi j 

A 


ui:>uui 

^ uill 


ufl^ULlI 0 

tlujiiVl (j-a 















1 

7.Excel VBA 1. 

7 .? VBA c?A L* ‘u^l 

3. (J j t n^ l VBA 

8 .VBA Module 

8.Procedures j^V' 

8 .Sub Procedure 

9 .Function 

10 .Object oriented Programming 

11 .Object Model cijLuI£ 1I jj><u 

12 .Collections 

13 .Objects Properties cjLuISII (_>ajL^ 

13.Variables djljjiiall 

13. Methods 

15.(VBE) ^tjVI jja^ 2. 

15.t Visual Basic Editor (VBE) j^iJ jj^ j* I-- 

15.VBE -ilj^Vl jj^ jl^j ^ 

17.VBE jal^j ^)*-aUc. 

19.Code Window 

19.Properties Window o-aiC^l slaU 

19.Immediate Window j^ljVl slaU 

21.VBA JC JjVl 


VII 



























26.(J;ljal£Vl dltaLo 

29 .*tA ^(.^aILuiI ,3 

30 . ^)ix-aVl ‘_Ix^all j^)£Lq Cblj)Jo*s 

32 .c^ ^ 

33 .j' Button 

34 . ^ ‘'**^ Aic. Ajjjudill lj!>tiJl ^lAkjjoil 

34.(3^^ 

37.Variables 4^ljj*iAll 4, 

37 .^ 

38 . VBA C:lj^l ^Ijji 

39 .VBA J 

40 .Declaring variables cjljjiiall jc. j:^y\ 

43 .cLjIjjxIa]! 3^“^ 

44 .-iasa j^V' ti*-^ t/ J:!^' Procedure only variables 

45 .-i^aa ji' ti'-iaj cjljjiiJI Module only variables 

46 . Public variables cjljjiiall 

46 .Static Variables cijljjiiaJl 

47 .Reset 

48 .Constants j^l 

49 .Constants Scope tjUaj 

49 .Working with Strings ijjljjiiJl ^ J^usll 

50 .Date variables ^ (J^usll 

51 .Assignment Statements ui!*^l 

51 .Arrays 

52 .Declaring Arrays ja*^l oc 

52 . Multidimensional Arrays 

53 .Dynamic Arrays 

viii 

































55 .(jUaUI ^ J-abuJ) ,5 

56 .CgIIs 

57 .Offset jVI 

57.Velue 

57 . 

58 .Text a^U. 

60.Count -^1 a^U. 

60 .HasFormula a^U. 

61 .Font a^U. 

61.Interior a^UJl 

64.(jUajJI C:Lul£ li s'ijih'i jS-aJ MetflOdS ji' 

64 .Select aijiij 

65 .Clear Method ai^j 

66 . Delete method ‘-ai^l ai^j 

67 .cW .6 

67.IF-Thenaia=. 

67 .IF- Thent>Jia. 

68 . IF-Then-Elseai^. 

68.IF- Then - [Else]- Endif au^ 

70.If-Then -Elseif- Endif (al-i^l 

72 . If-Elseif-Else j*l^l 

73 .Comparison operators (^l cjUjliall (iaijt 

74 . 

74.AND J-UJI 

74 .OR 

75 .NOT lUUJI 

77.Select Case statement aLia. 


IX 

































83.Looping Statements j'j^t cW .7 

83 .For....Next 

84 .for ^ Step 

88.Exit For c> for c> 

90.For 

92.For...Each...Next 

97.Do...While...Loop J j^l 

99.Do Until...Loop 

101.VBA JljJj ^JJ JtjJ .8 

101. U> 

101 . (Built-In VBA Functions) VBA 

102 .Date, Time, and Now J'j-iil 

103 . Month and MonthName 

104 .^juAaJil TypeName ^lAkiLoil 

105 .^ V (^1 VBA J'j-^ 

105.iMsgBox^'j 1- 

105 . ilnputBox^'j 2- 

106 .:Shell ^'^1 3- 

108. .il0.^1 hi.q\1 ^ 'IL* 

108 .Worksheet Functions ^jj J'j^ 

109 .(JaxII 'Ui.Vi 

109 .ti'-kj (_53 j (_sjjV'J iaj' jLajj 

110 .VLOOKUP j.laiLL.-l Jic. Jlia 

113.VBA ^ J-Uill .9 

113.Runtime time errors eLLi.'VI 

117 .On Error GoTo 

118 .Exit Sub 


X 































ellUjia-all (J 


118 .On Error Resume Next<W 

119 .Resume Label 

120 .Resume 

121 .Debugging Techniques (> 5Jljl 

121. eLLAV' t-sLAiS')/ Message Box J 

125 .«LLi.V' 2 :^ Debug.Print 

126 .VBA Debugger 

126 .Breakpoints ‘-iajjll 

127 .i_sajjJI ialsj jIjjI 

128 .Immediate Window 

129 .Watch Window siaU 

132.Locals Window 

132 ..-I 

135.Events10. 

137.Event-Handler ja Li 

139.VBA >.lji ijiiiJ All ^lAaJLoll <11^1 

139. Workbook Events >■ Alia.! ^ 3JAi 

139 .Open Workbook AiAl 

140 .Before Close AjlAI 

141 .Activate AjtaJI ^Jc. JIA 

141 .Deactivate AiAl 

142 .New Sheet AiAl JIA 

142 . Before Save AjtaJI JIA 

143 .Worksheets Events J^l (i'jJ Alja.i SIlVi 

143.Activate AiAl 

143 .Deactivate AiAl 

144 .Select Change AiAl 


XI 

































146. 

146. 

146. 

149 

149. 

150. 

151. 
154. 
154. 
156. 
159 
159. 
162. 

164. 

165. 

166. 
166. 
167. 
167. 
171. 

174. 

175. 
179. 
181. 
182. 
183. 
185. 


.Worksheet Calculate 

.Worksheet Change 


jlj^l CjIjUJ. 4 ^ Jplillil ,11 

.MsgBox ^'^1 




L>^ AjLaJLoil 

.InputBox ^>1 

.InputBox (J^ 

Application.InputBox method 

.UserForms .12 


.... Command Button _y>ljVl jj 

.Show UserForm jjj^' 

UserForms Codes jiLajiU a jIjSVi SjIjS 

.Unloading a Form (i^l 

.Fliding a form 

.^IjVl jljjU 2L^Udl JljSVl aJ:^ 


I_gb0| ”Aj*SJx>» j!ill A^lAjoull" 

.Option Buttons JjJ 

Option Button jj^ a^UJI 

.Check Box 


.List Box 

. List Box 

.Populating List 

^ List Box ^ 


XII 































ellUjia-all (J 


188 

191 

191 

193 

194 

195 

197 

198 


Multi-Select ListBox ^^1 j-i*!*!! jlAi-VI 

.Combo Box ^-WLall S^Lall 


.Text Box o^' 

^lAaJLoil (^5-ic. (JI!Lq 
djUl^l jx^ ^.Uj .cJHq 


djULiJ j j ^Lja] 

_ ^HaII ^Lojoill ^ ^HaII AiLjal 


xiii 




















cjIjjVi (> Visual Basic for Applications (VBA) ^ ^ 

AiLjalj ^ x>\l AHajV <C. 

A \ ^Ludjl jl (JjjuaSI (JIa 

^\ ^Ludjl cJ^) ^ _flJjJa^l cJ-AXJ 

L_fljjuj l^U ^-^LLi ^ j^i ^ diajjujjj£jLi duic.) ^j ,1 a j^j dUl^l JLk^l jl j^ljill 

dli d^>dij| dlc-Ui^ A^k^ VJ j!n V 1^1 j VBA ^)-<iJjaLS 

.VBA ^ c> C5^' 


,l^ii]j)^ ui (3^ l-^lijj lJj^^ c^j V) VBA Cy^ C5^~J 

VBA (J-^ldJl ^1 j^Vl j; ^1-^ dllL>^ (ill 

^ ciljic^Lau JUi Help d.^C'tjud^ ^L^lLi ^ (. ** 1 djldill I 

QA Ia^)^j ^lia^Vt L-flUijSlj (jL<iSVI cJ^ C)^ AjIjS ^IjjI 

,dl j^l 

^l^^duol j^jC> LJ^‘^ VBA -^1 0^1^ ij'^'* ^ C^l (Jj 

^1 ^1 ^ x>\l ^I^Lj ^ j^)SL<ill (J-^uoiA (Jjitjud d^A (^1 <.**n^ lj^)SL<Jl (^y ki,\A 

d^A ,A.^L^I dc. Ajlc-djuoV J^)SL<JI ^jdj (Jjl^uaull L-iSjJ 

lJi^)xj d.^^1 1^1 c^l IjJajI (,Jj AC'^^juoJ c^LaC>l L)^ aJIjl3 aI^^I 

AjLoxJI c^Uj ^I.^Ij ^ (^^:yj.AA (,Jxjd ^1 Aj^ VBA -^1 Ajjjl^ AjLoxj 

,A un ^ L^'^l (J^uoiaII L-iS^ ^ 
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A ^ i CIjLaIS ^A^JLuoJ 1-^ (J’ VBA A^djiaxJl (3^^ 

\iXLS, ^\jil\ :jj£11 iA:^ ik . jj£ll S^l^j <jIjS un L<ui LLdl^lklLujI 

Worksheets("sheetl").Activate 
Range("Al").Value = "Hello World!!" 

Range("Al").lnterior.Color = vbGreen 


Sheetl )njuinj (J^ljuaSVI CIiL^IjujIj Ai^)x>i CJJ^ CJ^ 

4^)jjak.Vl (j^U cilts A1 "Hello World!!" ^^^ 

(.** 3? \ ^Ij a q utix> 6^)fk A1 ^ 

(^jA ^jUll ^1 AjjJa^ VBA (JjIjujSVI diL^Luol ^ 

djl^j (Jj,^uaUJ (3^1 ju0 A1 (j£j ^ lil _IA j) VBA tljJUO 6^)fk (3^1-JUO <S 

^ (J-oljiIllI Sj)nk ikl^ L^lj£j| (jU VBA AjIjS jI j^)SL<JI 

.5Jl111 

cJ^ojJ Jiajudjlj LS^ 1^ AjIj£ IjAxUC>I ^ 

<11^^ A^joulU dlxjjaj lA^I ^jjajJ dlS^1 ^j A-AaC- 6^li dlli CJJ^ CJ’ 

1 tdmjuli (JJ^ (JjJaS) (JSj^ ^LujJ IajjSxj ^1 

lit AA IAi^Ij (JHaII 6^^£aj (J^Lkl (J^‘^ ^UalLaiAll aJxoVI 

Cj^ cJ3^ AjI^ (^J£judj ^ ^9 i\l diA^ 

(>**^1juiIjujVIj tA<iL<ill ^1 V) VBA (JjjuoSVI 1 L^Ij£J| 

(JIa) (^Jjii ^^)k.l 0^1^ A-i^^ ^aixj ci^JuoJ L_fljJuJ L^IjSJI 6^^^Aa1I 

JIa a AjlS ^1 ^aixJ (^.^LalJ lJj^^ IjA 6^^^Aa 1I djL^LujVI (j) ^ .VBA 

_l1u^)Sjuj liL^ jl ^jJjU 

ajj^x>\I ^)j^IjxJI ^Ij VBA diL^Luol ^1 ^ ! VBA 

A^jUll A^I£ A.^^)JI qx> C1 jI^I^)^VIj (Jlj^lj A-AxAill (JIa 1-^ 
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Object Model Object Oriented Programming 


^jjjLujVI A\ 

Visual Basic Editor j^Vl jj^ :VBE jj^ J^t - 

^^)juj ^ ^aJJ VBA 

(JjVI AjIjS ^ <jJalijjujlj ^)j^IjC. 


_<aj^)la Aic. 6^lc.^ijjujlj 4 VBA 

Macro (J,^uaiA ^l.liJLuj| Aij^)ia ^ 

5jtL 5-jjj£^l ^\jA\^ jjSLill dil^j ^UiuV j Rocordor 

A ^jQj^ ^ (Jj.^uaLi ^jQj^ ^ (3^“^ VBA 


_A-iic. 

A-^j l^ljjij Variables C- 

(Jj^^asll LoS _Clll^)jiLlAll ir'\Y\\ Ajqj^j L^OaJj 1 ^ "iC. 

(J^lxillJ l^-k. J Ailik-<ill 1^1 jjU Arrays 

Range Objects (jUaill cijUjI£ 1 (jjiaill :(jl^t cjUjU ^ J^bu]! 

_ciiliLlaill 1 ^ Methods 1 ^ k^\\ 

^Control statennents ^=^^1 c> cW - 




(> ^ I^Iji^I a^j Select.Case j IF ....Then VBA ^ 

^ l^ljLkioil A-^j Logical Operators AjSlaiJI ^^ ^ US .5JUVi 




Do.While j For....Next j'j^' lU^ c> ^^ Ua . ia^ 

_aJU| j dlVU 6.1xjj (Jjlx^aiL U J 


^ aj^jJI jUujVI (j-<i 5x.jx>>x> ^ 6 jL^ ^ Function ^1-^1 iJtj^^t 

A-<i^ ^ O^J J CIjIjUi^I 1 ^ x>j}-a n 

Aj^I^ l^l VBA Ul ^ lU (^J 

^ _AjL^ax^aSUl (JaxJI A-9^J VBA A-^^^AaII (Jlj^l 

(JS C5^ aJUI ^liaC.| ^A Aj^l^l 
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VBA AjuLu^I (3^ g.1 m\*\\\ 

(jl ^lia^VI (j^)ialll ^ (^J .L^^)^' L^’ 

LoS _Aij^)ia Ajuti (J^IjlIII ^ lia^l (jl^ 4jqj^j VBA 

djU^I (j-o jj^l D6bugging " 4 -^tcix^aill ^ (j^)]alll 

lLjji^ lIj jji^ Ak. t^lilj VBA l 3^>^ ^ j-^U-St 

L_fljjuj (Jj^^asll (^J <>**vW i^jC> <Jaljud^ ^EVEPlt 

dilklj^VI A^ ^ I^Aa dJjliluoVI J Jz^JoiSVI ^ Ic-J^Vl cIjIa^VI L-fljxSj 

.^lilj lI^jAj 

:lnputBox j MsgBox J^ (> ^aSA^I Jc^liUt ^jUJt J.*^! 

MsgBox l 1^ <alik<i ^ 

AjUI^I ^AkLujj In put Box ^^AkLoiAll <kl£^l ^ 

c^'j Application.InputBox cij^^l ^ :iSa ciil3 ^Ljal .jl cJ!^ 

^djliUoill ^1 AjV^tx^l ^AkLuA 

AjUI^I Jbk^V 6A^1 (JjUjo jll ^ Us6r Forms ^ ;^jL4li( ^j-uip 

(Jlk^l L_UJJJ <•—u^ (J-<i AjUI^I (Jlk^l ^JaioLi cilj) <•—U^ _l^jJa^)C.j 

Qjii 4-iIac. j) AjIaI^I i^jjii a1^ a^IAaII a \jui^I ^Ia1A.I j) AjIaI^I 

caUI^I (Aii£^^ (3^ AikAAll CAljLi^ (JtkAVI 

Ia^ Laa ^^LAa^^)jLA]| CAIjI^I AjL^nJa (^J£jA]Ij 

JIa l^jlc. ^)j^Uc. 5iljJal 4jqj^J ^aLaII ^LuAI A\^f\ ^^>Ai ^ Iaa ^ ,caIjI^I 

AjIa^!^ ^-jL^Ajuj!^ ^a^^-<a1I ^)j^1Ac. J ^Ia j ^JAjudiAll jSlI j jlAlA-VI jljj' 

^^JajoAaII <ajIA 1I ^LnA-Vl jl k^W ^jL^AjujVI cJ^ 4 q\*i^ a\I 


^VBA A-^LuoVi caI^I^-aII l^LuASIj ^^^aAAjolaI a .^^ l^1A£JI Iaa 

^IaJJ ^1 4-1^ L^1A£JI IaA ^ IaAS ^^^jJaAll (JjljuaSVI ^ (^ (JliAVU Lia 

((^Jjjuj^l CAIjjujIjujI (_}ajAj (AHa ((_]jja^l ^lAkjjuol (,5“^ Jsjuj^^JA ^^^JjoiaJ 

(JjIa^I (JIa 4 q\*i^ a\I (JjjoiSVl caIjaI ^IaAAjujI ^(JaxJI cAlaliaillj Ij^IaJI ^a (JaIxAII 
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2019 <^^-1^1 Cy^ U^diV^^Lx^l ^a ^J^IjLIII tdjlJaJa^^l^ 

ciii£-<ijj L<iS _(J;iJuaSl ^jjuoj )\'\^ (^\ ^1 jl (JIa l^LouSV "lJ^juJI (JJ^I — 

Jajl^l (J^Lk (JjjuoSI dil^L^ " Uj^j^ AjuIIa 


?(^Um tj^ (..i^ 

lJ_5^ ^A 4L_L^^pll L^Ij£J1 I^A 

1jL<uC.| ^>7* ill 1 ^ K^kit \ ^1<U3U (JjjL^oall ^1 <.**n^ A^ (JliijVt L<iL<iJ 4 x>^ 


IjL^aikl ^ dlljjii^l {J 'J^ U^ di^ l^Ij£J) I^A 

c^IUa (JS ^ AjI <--i^ l^Ij£JI (J-<il£ 1^ L ohA z\ ^1 V) (Alid^ 

A^j^)ju1a dlc-jjJa^^ ^jjJaj^i C5^ 1 ^ CJ^^ <>** dLo^^lx-o 

cJ'J"6^1^ .^xJ V) aLoIS ( 3^^ ij'^* ^ J' cJ^*-^^ 

■iaj'JJ 


ljj^jA\ J:j^t ^JJ^ 

^iIVmI) J;i^rt£V) SjjJ LjIj 
" J^l JJill - 2019 iaj|j 

"^i lVul l ^jlutAil — 2013 Jrf**"**^!” J 


^l^)Sil Ajjudillj ti lJ3^ CJ’^ Ajj£^^ l^Ij£JI 




^Lii) JLdaj 
2019 ‘sj^ 
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VBA 


JjSl) J-aill 

Excel VBA .1 


\/B/\ 4 ^ Ajtl cHjIjjujIjujI (_] l.^ 

1^ a.^^IjujVI 

_(JjjL^aall (JliijVI ci^ lil (Jjj^^aall uij 1 ^j\c. AaJxJj 

? VBA ^ 0^1 

^ jj^^ c> ^^ c^j Visual Basic for Application -S ^ VBA ^ 

AiLjaVtj djWnJaJ ^ ^ ^^JaiaiJ 

^\ ^ x>\l (^IjA 4(J;ljaiS^ ^Jjudillj t^llj ^1 ^ A\ cJ^ 

: Jid VBA ^ cjl 

J djS^1 jL^aikV 6JJ^1 a 1I djlA<^l AldS) 

_ (JjIjujSV l-J 

_djljl^l (Jj^joul ^iL<ij c-UjojI 

. J;ija£!>U Add-ins c Vill^j c-Uiul 

d^Ul^l (JxojVI A^^^juoll ^ajuol AiLjal 

_<C.^)jujj <Sj^ uij ^j^jjL^aill ciilj ^1 JJ ciili 

jjj£j| Ia J 
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(JjVl 


VBA ^ j^\j»l\ ^\ 

VBA Module 

IjjJj bl^^A (jl^i ‘VBA Module ^ VBA 

J!li. (jA jjjA^j s^LIa (jS-aj .Macro Recorder jj^IaII CjI^j J^-uia J!li. < 3 ^ jl 

"VB Editor ^'jSVl jj^" 

"VBE jlyS'^l i^IJj^LimI" i^jLiJI ^J-iiaAll^ VBE j/yS'^ljjj>exJ (^^jJslt! fO>^if-ui 

Jjj jVj Sub Procedures ^js VBA Module 

.Functions 

Procedures 

l(j^ 

Sub-Procedures ^jai' -1 

Function J'j-^' -2 

Jl jii Jl jaIjVi (> c> »jW^ J : Sub Procedure ^ J' 

lc._Ja ^1 ^ Sub '^^tlia.all 4-al£]lj 4^I^)^V1 (jl ‘- . .e.i.la-a 'CaJ Jl 

^Jj Jlj^l J& Jlla Jj LJ .End Sub 

:"Hello VBA" Jll aJLaj 

Sub Hello_VBA() 

MsgBox ("Hello VBA") 

End Sub 

^j.’^' jj^l' Laj End Sub -i Sub citl.^ <jl^^VI (jl I&jLui ^ La£ 

."Hello VBA" j'j^ (_p3^)aj ^ Jj .i Jll ' ''''^' *«. J (j.aLaJl 

((JjIoiaII (jjj Jlj^l) Substandard WtJ ^^JaII J£jilb ^liill jJij V Jill Jlj^V' 


8 




VBA 


^jU L_fl!>Lkj j ^Ij^l bP !Function 

^jjaiL lJ^I^ (3^ jl ^1^1 ^Ic-JILujI (^l£^b _6A 

Function ^aKIU 5J1a1I Ia^ .Built-in functions J^VI Jlj^ ^lAkio^l ^jla 

5J1a 1I Akb y) J .End Function j ^IaU ^j£H ^ ^IaII lx. 

Jl(Function parameters/arguments cA!>LkA^ 

^ ^AkjjoiAll Akb <Sb (Jb-o A^bll <SIa1I .^ACJ’ 

:W 3t-A^ *\ 

Function Add2Nunnbers(numl, nunn2) 


Add2Numbers = numl + num2 


End Function 


I ^ A\A 


b^ « X>^ c>j nunn2 j numl biA Akb ^ 

I 5JIa1I <j(i^\ b)l ^ J 1a^ kja^ 5Jk^!)U bA j Add2Numb6rs j!>Lk 


^ ^ <SIa]| b)) b^ Jk^V 




.aJIaII ^jujI ^)bCb ^ ^ b)l 


NINA tl^M - 


2j[pl jJkjl 3 I 4 iJjb ^ o[;bcUJlj 4^l3Jl Oj-SxJl jJkjl 40[;bcUJl Juj-xJL) 

biS (jljji (jkb (b-<i l-^lAkjjuj| b)l-^Vb ^ Ukoj 4j^x>^)bl AjIa^^I (_^A^I (Jx>x>> <S1a 1I jLk^l AxJ 

.(_^^)k.l (Jlj^ jl Clilbl^)^Vl (jkb (b-<i ^IaII ^Ic-JUjujI b)l-^Vb AjI biS .1-1 (J^AiJl bl ]-nj 
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(JjVl 


TestAdd ^Mj=^V' t> Add2Numbers ^1-^' -^j^' 

Sub TestAddO 
argl = 10 
arg2 = 20 

result = Add2Numbers(argl, arg2) 

MsgBox result 
End Sub 


Object oriented Programming 

Object Oriented cF- “j'-F" Jl 

^l£ cjUU ^LaiVl .Programming language 

<1 ‘Objects (j<a (j<a 

.Methods <.5-“^ cijLal, '^-su . i VI Properties ^ya 

CjLLiai-all ‘Worksheets (jljji ‘Cells Jla ^ (JjlJuaSVI 

Uj^j ‘Shapes Jl^Vl ‘Charts 

a^ljuill A^LI] (4 _ul 3|^I SLl^l |_]^'»"''' La^ ' ^'^\l [_)■^'»‘i"' 

C(_pajaJl tJjUl 4(jjill Properties 

c {JiA IVl6thod (3^ A^jAyA 1-^j 

j) AisjiA djLijuJI cJIa djLiJuall a 1 \^ Ev6nts <c.jx>^x> 

<LflaJ ^ Jij£Jl . (JC. A natx> j) Trigg6r 

.Event Handler c3^ ^ 
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VBA 


(J^)la/(jl dlljjl£Jl ^j>i LSjP^^^ (JIaIIj (JjjuoSVI 

Features/Properties ^ <S (JjI£ ^jc. ^jl^ ja Workbook ^ Vu^ x >\ l 

Open ^ Vu^ x >\ l ^ Ji<i Methods c> Size Nanne ^ Vu^ x >\ l ^1 JL^ 

JlLft .Save ^ Jai^^ 

qUi.OX>\l 


Object Model 

^aJJ ^\ (JS 4(J;ljalSVI VBA L-lWl {JjiJudSV dlljjlSJl 

djUjlSlU cIjUjISJI jAj ,c!jUjI£JI (j!^ 0^ VBA 

.lj!>LkJlJ djliUaill 4(J-<ix]l (jljji L^jl^ 

diljjlSJl 0^ a^ja^a (Jjju^Vl LiJ .Object cS^ o^ 

djlijisll (J-<UjujJ .VBA cj^ ^aSa^l 

_^)jj£JI i'*)\ 

iSj^ cijUjI^II (jiaxj ji Hierarchical arrangement ^^ cijUjI^II 

O^tS 0^ <Jalij djlij (JjIxjjSVI ^ajd ^Ajudij (Jjlxj^Vl 0 -oIj^ .c5^)^’ ujUjIS 

djliL^I jLi cijUjIS ^ L?j^ Application .Application 

JIa c:jUjI£ ^ Workbook ^ Vu^ x >\ l o^l£ ji^ .Add-Ins ^t^V' j Workbooks 
(^ iSj^ Worksheet cUd' ^jj .Charts Worksheets lU^' ci'jj^ 

^Likx^l .PivotTables ^Cells ^Ranges djliLkill JLi cijUjI£ 

,(J;ixjaSI (J^l^ diUjlSlI "Object Model cijUjISJI 


Application 

-^ 

Workbooks 

-> 

Workshets 

- > 

Ranges 

- > 

Cells 
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(JjVl 


Collections 

''" (Jjj‘■' ^"Collection ^**'jU'“^ l>^ t•*'i“'M^\i 
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cilli (jjj^ ^ c**n"\ l^jjujL^I ^ajuol (jc- 6jl-^ jA VarlablB 

Cy^ 4 ^1^1 Ls^ (jl 

^^ii_ii ^Ia^JLujIj j^ ^lJaC.|/^j:iixJ 

I jjxIaI ^UaC-l dlA^liJLujI djIjL^I ^^jiaxJ aHaVI (j-^axJ L<i^ 

X = 100 
Rate = 0. 05 
y = y+10 

name = "Ahmed" 
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2^1 jll 


isOK = False 

StartDate = #01/18/2019# 

Rate = Sheets("sheetl").Range("Al").Value 

^ LaiiJ ‘(~) UJJ’*"''' (j-a (Jilljjxlall ^.Lajoii (ji Ja^V 


(Jla »La.uilS V (,5^1 *>■ CjLal^l VBA '' 

.Uaa. 4JLaij <_a_^ (jLiLaKlI ciU caljU. lilj Sub, Function, IF ... etc 

VBA dlLal^l 4j^)x..al 

https://bettersolutions.conn/vba/svntax/kevworcls.htnn 

https://clocs.microsoft.com/en-us/office/vba/language/reference/kevwords- 

visual-basic-for-applications 


VBA J aj^\ 

(JSjudJ dll^jjaCLail 4.alli-all (_J.alji:ill VBA 

^Xa^l ‘ _ ^Lal.laJLujlj «..^l 4.a.uil^ ^jJAXa]! U 

^jJl 


x= 100 

(illjj integer ^ <&jj j x (JjjoiSVI 

(»j% "Ahmed" dUax^l l1uI£ j \j 100 J ^ ^ 

VBA ^ (j-o J .String x ^ 
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djl jjaIaII 


^>1* \ ^ S^liS (Jsl Lol^iiJLujI tdlil IIaj (^IjA Vj 

^jj ^l^liJLujlj Uit^lc. cJ^j^ l_Ujj11a 11 diUl^l ^^ ^ ^ 

.CIjIjjLJI ^ JiJlc. (JS) ^Jlkjjuoj djUl^l 

VBA J e*^* 

VBA c1iI^)jx1a1I ^I^Ij (^ 


Range f^' 

Data 

Types 

255 is^~3 0 ^ ^ i ^ 4 

Byte 

True or False, On or Off, 0 or 1 

Boolean 

-32,768 To 32767 

Integer 

-2,147,483,648 To 2,147,483,647 

Long 

-3.402823E38 To 1.401298E45 

Single 

4.94065645841247E-324 To 1.79769313486232E308 

Double (Positive) 

-1.79769313486232E308 To -4.94065645841247E-324 

Double 

(Negative) 

-922,337,203,685,477.5808 To 922,337,203,685,477.5807 

Currency 

+/-79,228,162,514,264,337,593,543,950,335 

Aj^ui»JI (jjAj 

+/-7.9228162514264337593543950335 

Aj^)ju1xJ| q\1 

Decimal 

1/1/100 to 12/31/9999 

Date 

Object in VBA 

Object 

<-aj^ 65400 

String 

String (j'-^ < 1 ^ ji Double -5' <a4 i ^\ 

Variant 
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2^1 jll 


Declaring variables 


.Variant jAj VBA 

liiL j;A*jj ^Jill ^1 djlil^l ^ ^ji (^1 c—ic.jiujj (j) 2^:ilaiujj Variant Cjj^ 

Variant ^l>^ ^jiiiAll \.i^ Alxii ^1 1-<4 j jiilAll aIaxAII diULi^ 

("100200300" CJ:^ CJ^) ^^^^1 AjLujj jjxIaII t^il Ajj^^ai 

j 3 Jj^ (j^ J^) text manipulation ^i^l cuU^' ciiil£^U 

(. jui^ djUl^l ^jil ^lilill (Jjjaalli VBA ^^ ^LoiaJl C!jlj\x>y 11 j) ((j-^l (j-<i 

_ jiillAll A-i1ax1I 

:^l:i]ljliil jkj) 

Sub test() 

varl = "100200300" 

MsgBox (Left(varl, 3)) 

MsgBox (varl + 300) 

End Sub 

(JiLa ^<i.aC. Ajc- "100200300" ^ J ‘'jUx--1j Varl Ll.a.laiuj| IjA 

CjUI^I ^ VBA -1' J<«buj t" Left(varl, 3)" Left t> jj^j 3 Jj^ 

diUl^l ^ VBA lULsijj " Varl+300" <_ 5 ^ ajIuc. (jjiflaj .lic- Laiu .String i_y^^ 

Aiijj <> 7-j"'' Ijl 4-1 (J^ ‘‘‘' 
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dl) jjxIaII 



VI ^ djUl^l ^jj ^ISllll L_flj3Lillj ^jL VBA -^1 

^ 6^)Slillj A^LuO-O J VBA -^1 Cjl 6^)Slill (J-O <lijjudiJl A^LouJIj <C.^)juJ| ^ 
Vsrisnt ls^ a-Aac. ^l^)^l <SL^ ajI AiLjaVl-j aj^^UoaII a^LuoaII ^>^1 

HlaJ ^ ^ ^ ^ I^A j L_UjjUa 11 dlUl^l ^ jl jlA^i aLaLuj VBA -^1 ^j% 

_0aIj^)JI ,^jVn 

J^l ^ UkOJ cAj ^11 (jl djl^)JxlAll ^jc. ^Vlc-Vl-J ^ I'il ^ ^^)dl A K U1A (^IjA 

^ajuolj AjC- (3^xa l^)jiL!lA ^l^lidujlj lIiaS tAj) l^lUll (JHaII (.^IVlC. <jJa^)C. 

j^' (> 250 CurrentValue 

CurrentValue = 250 

jJI jkuJl Ji.jli CurrentValue ^ c?^ 100 jJI ^jSj J CjjJ ^ 

CurentValue = 250 + 100 


CurrentValue "r" <.5^j^=^' ?LLiJl Ja 

jjxIiaII ^jc. IaIaj L_alikjj Cur6ntValU6 VBA ^jjudilli A-^J 

yl^Aj S ajI ,IaIaj AlLld 0 aIj^)JI aAjjI A.a.dill yli Curr6ntValu6 
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2^1 jll 


j) CJJ^ UiAiC' dilillj (j-<i ^c <iun^*i ^) 

^)JajujVt (3^ CIiLIa 

^dAjuoj (3^ Ls^ c1j1^)jx1a11 3^ 3^^V^ o\^ IajLuo ^ ls^ 


C1j1^)Jx1a1I ^L<ujjV (jLoSVt AjIaC. dll jjxIaII 3^ 3^^V^ A-AaC. tAl Ia^jJ ^l3:f^l ^^1 

j) Jjl c-jj^ 31 ^L^-k. 3^*^^ djljjxlAl Ji^l ^1 (Jdd 3I jLkJiVI djSj 

(jjajfr jl JUjVI JL^b VBA -S' (»j%S Ctrl+Space 





OjiY) 2 /'KU ^.laJLuij Cjlj;UtlL(JI (jc- 

Dim <jmIJI ^l> As <^ji> 

:^i 


Dim Name As String 
Dim Salary As Double 
Dim StartDate As Date 
DimX 
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(J-aL*JJ j X <iLlaC.| ^ ^ SJ^Vl <1*^ ^ UA 

■Variant ^jjt> jjii^ VBA 

(JIaaII Ia£ ^)]ajjill ^yilLa (_jA ,J^' (jSaaII (_jA 

Dim Name As String, Salary As Long, StartDate As Date 

(JIja]I (_>^ ^)ji».iLa (jt^ 1'^)^ 

Dim FirstName As String, LasteName As String 

(_jA ^JJiXlLa (_jA dlLjl^l ^ ‘'-i."'. ,il (j^Aj V ^ jl'MI AjUa^I aIo^^Ia ^a 

Dim FirstName, LastName As String 

l_aj^)3ij ■ ■' Laiu String ‘“ (_^^l jA Jaaa Jjilall (j^ A^jLuiII aIa^I t-'-n ^A•^..^l lij 

■Variant cijIjjiiJI 

CjIj;Uua]I l^l.iLlujl (j^Aj ‘“'' lilLiA Dim A^biAll AaKII ‘ ^'''; 


Static • 
Public • 
Private • 


.aJIj]! (JIiIjmII ^ bllil 

CjljjauA^I ^Uaj 

. jjiiall ^.ikiau (ji (j^Aj djl^lj^Vlj jA\ cijI.i^j 11 Variable's scope jb^All (jLLj 

I jj*ja 11 (jUajl lilLiA 

Function CP *Jp j^^V' <^1 j") Mj^^V' (jL^^ Procedure only -1 

(jjjia (jc. jjsuaI] (jLkill ^ajj aJUJI fijiA .(Sub Procoduro ^js j' 

(J^Ia) Static Dim (a'Akiujl 
■■^ j^' 6-^(jL^aj Module only -2 

A^jJl cjUIj^VI All procedures in all modules -3 
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2^1 jll 


laid ^tj^V' (J^ (iiljjiiAil Procedure only variables 

(j£^j CJ^ L<i ^)Jx1a1 ^ (jliaill 

^J%J ^J aJ J JXJ V JJaIaII LoAIc. _JaS3 A-oIa^AjujI 

.SjSIaII ^ ^:>u.u j^vi 

I^-jjujjSI AajLuj (_^I ^)jx1a 1I Ale. 

[)irn 4x>K\l ^Ia^iLujI (J^Lk ^ Ja^ u^ 

jj^l ^)iajuj) 5 -jIjS (J^j Function j' Sub J 

: Jliill Jll^l j]^l 

Sub Test() 

Dim FirstName As Text, LastName As Text 


JjSJl ^)iajuji] 

End Sub 


dA^^l lJ^IAj <AjI^I^)^VI (jji U^ duic.) lit 

A^^ Loldi (^JSjuIj ^ 9 UUj| (^JJO^ ^IA^AjujI 

^1x5 J^Vl "JaSs dIA AjIjjxAaII ^L (JjSll (jS-<iJ ,l1jIjjx1a11 cAUj IajI <5!^ 

,Adl^)^VI Alijj .ixj 6^)SIA1I ^ AjIS-o jjxILJI 6^)SIa1I ^Ia^AjujI ^ 
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dl) jjxIaII 


iaSa jUaj ^ Module only variables 

^jc. 4-iLiAill 6 ^L^IIa jJlIaII (Jj% (ji djj duS lit 

^Ij^l ^\ (3^ 1^ .( Subj'Function Jj' 

"dj|c> u^V' r^" Declarations section 

^ 3 ^ .declaration djIj^cL^ll ^ 4-3 

^l:dduj| ^j\£^y[jj .Declaration ^doidJI <>ulall (jjojLJI 

_A.jJadll C5^) AJdoiiAll 


^ Booki - Modulel [Code] 


S 



Figure4-3 


6^^1 L^’ dll jjxIaH ^l^ldduol iA-iladll 6^^1 3^-^ (^ dlljjilAll <ijudillj 

Adl^)^l 3^ (JliijVI dc- L<iS 1 A-ila-dll 


45 





















2^1 jll 


Public variables cjljjiiAi) 

yl LA\^J^\ ^ L^IIa jjxIaII (Jj% (j) di^ lit 

clF (j^Vt ^ Public ^IjLkiaiU Public variable 

: Jiill JllJl j]^l dlj^l 


Public InvestRate as Long 

A-iixAj 6 -i^j ^\ L5^l5^ InvestRate (jVl 


Static Variables cijtjjiiAlt 

dljjiliAH ,lA,^jVn ^ ^ dljjiHAll ReSet d^Lc-l (Jac. ^ d^lc. 

^aJJ Vj 1 ^*lAjqj C5^^J C1 jI^)Jx1a11 Qjii ^ 

Static ^^Cf^LliAl) ^Adlilll cIiIjjxIaII .L^ 6^tc.l (Jac. 

Test() ^ dl^)All ^jic. (jiajxJ LLIj IjjAxIa liAjLkjjuol JLllI Jll<JI ^ 


Booki - ModuleZ [Code] 


[ 1 ] 



Figure 4-4 
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j^y\ JjiJu ^ Integer j:?*^ RunCounter ‘^j*j fj '-»* 

jJl jkuJl J!lL ^ 1 jljiLu RunCounter ^ Test() ^j^' 

RunCounter = RunCounter + 1 


MsgBox RunCounter 


cjljjiiAl] Reset L«J*^ ig^ 

Ciaji (Jj (Ja^ jJsLLall U>il (j^-aJ (jJl V VSrisbleS scope Cllljjilall (jUaj 
4-a^ i- 'a.~i^ ' VR/\ J1 ^jii -lajLuj sjSi ^ LaS j — 4jl .ejSlill (j-a jjxlall <-a^ ‘- 'a*i^ ' VBA 
J j=»Aj Procedure only variable <3'-^ dy^ 

Jiaiaj (Static, Public, and Module only variables) cjI jm1J\ .^1 

_ (Jj > nSVI 1 alk^a^l 

|al.lLlujlj jjM CjI Jjxla]l ^ ‘ a ^^J ^LjajI 

(cjIjjVI (jjjVl ^j^') Reset jj JiaxjJa]| ^jC> 

_Ua^ <SLujj End JJ LS^ iaxjJall 

(jl^ (jl "End" A-^lULoll A x>K\l ^l^iiJljujI 
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2^1 jll cUill 



Microsoft Visual Basic 

Run-tinne error 'iti 
Divisior! by zero 

* 


^Uuuiie 1 

End 1 

1 [ 

Het> 1 




Figure4-5 


Constants 

"pj Ja" dulj (ji ^ AHjIj djUjoVI ^1-1^ 

djljjtiall Constants l^j 3.14 

^ Vafiablo 

jjxlall ^jc. (^J .Const A x>K\l ^l^lkluoU duljllll ^jc. ^ 

iCluljllll <S1 aI ^lUll , jjxIaII A^(^ 


Const Pi = 3.14 
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Const ModuleName As String = "Reporting' 
Public Const Rate = 0.075 


cjLujjLaaII jA ^ Hard-coded ^ Ijjl ^ Vaj dul^lAkUjujl 

(jl AiLjaVl-J (J^ 6^11 aa1I 

lil (JHaII cJ:!^ _JaS3 SA^Ij A-AaC- ^aJj3 dulj^l A-AaC- i^yi un 

clF' cJ-^V^ ^ Cj^ ci^AaaVl ^bloA Int6r6st Ajjudj JIa^ j^a^ dulA djUiVI ^ jj^ 

SA^Ij AjjudAl cillj jjjarM d^Ull A-jjudJ Ajj^ lit Ail <AI A^<i^l cillj A^<i^ CJzi^J A-ulj 

_l1ijIA 11 A^<i^ clF' 

Constants Scope 

_A-1j 1 J^l ^Ax^I 1.1^ AjIjjxIaII LiS dulJ^l (jUaA A-ijudAU 

/aJa^^Ia 

^j£Jl ^UjI ^ IaaAjL^ IA .1-^ic. Ia jj;^ A-uIAI A^<i^ ^AjIjjxIaII L_fl!>Lkj 

_Lla^ aJLuj^ aJ- 


Working with Strings iiiljjiiAil ^ 

|<jj^^aAl (Jjuj^LuAl VBA 

Lgit u^V' (Aj : Fixed-length strings ‘^^1 -i 

1.1^ L_flj^pJl ^ A^l _Ajj.^aAl aAjoAjuAI L_flj^pJl ^ A^l -^A^ ^ 

65526 

Ajiajs ^ ^ lil iVariable-length strings jA^' Ju<! 5 LJI -2 

AjI^ AJjl^aAI AAjaAjaLlA]| {^JaIjlAI 4^J«*1a\I j^jC> AOx^aAl AAjuAjuAaI] 

^ eijjiJl .iadli <SLaJI siA ^ .Variable-length string JA= 

,l_a^)^ jLjLa 2 <1 ui1uj1a1I 
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2^1 jll 


^ ^JjuaLoLiAll ^ String ^l>^ u ^ cj-^V^ 

Variable-length VBA -5' j^Vt ^ ^ lilj 

.string 

Dim MyName As String * 40 
Dim MyName As String 

Date variables ^ 

1 j/bi.o'i l^)jiL!L<i diA^iiJLujI lit SjjiAll diljl^l ^1^1 ( 3 ^ Date 

Date ^LiL<i.iiJLujl lil 3li 

Ai^)x>i jl ^tjVl 3^ J’ ^3*^ U’ C5^ 4 C1jLi1ax]| 

_3:^jIj .IxJ 

I Date cl^ 0 ^ ^ J^jS ^^jia^)3ij A^lUll <Sj.aVI 

Dim FirstDate As Date 

Const StartDate As Date = #1/1/2020# 

Const Noon As Date = #12:00:00 PM# 

31 4 - 1 ^ Uaj .^ijLuJI ^ ^ 3 ^ ^jUllj diSjll ^ ^jJajj 3 ' ^ VBA 

3 ^ £ I LllljLlk]| ^ L_fl^)X>i jA UiS ^jlillj dia^l ^jia^)XJ VBA x> ^alxj 

Aljudll/^jJI/^)^-jaill" jA J Cy 4"^ J cJ^J -M 

:^l:i]l jJI jkuJI Cikji Ijj !jliaa "dd/mm/yyyy 

Dim MyDate = #11/10/2020# 

LllljLlk]| ^ L_fl^)X>i jA LoS <jJa^)XJ (JjjuoSVI ^jia^)C. -Hc-j 3 ^ ^>jail*Jl 

(3klAj (Jl-^ <^) ^ J’ ( 3 ^^^ ^3^ (^ cJ^ <^) ^ 




Assignment Statements 

cJ^) ji dlljjilail <iUaC.| ^j-a ^ (jjjsilll (J-a^ 

."=" cUUJl 

(_J-a^ ^JiLaVI J (_JijaiVl 

x= 100 

Z = Z + 1 

y = (y + x) / 20 

Rate = Range("Al").Value 


a^LuoII dila^V 

Cllljjl£Jl ^1^1 ^)jiLlAll ^liaC-l ^j£^j LoS ^)jiLlAil Lo A-AaC- A 

.A1 ^1 ^ 

A-^^)J1 ^Ic. ^ 1^1 Vj A-Ia^ c^IUa AiLudll (JA 

Z = Z + 1 


_ ]_ ^IV^A 1 ^)Jx 1 a 1 I A-a^ A \a^\I aAiS ^aJJ ci^ A \a^\I 

Arrays 


^aIa VBA ^ VJ* a^a^I c!jIjlS 

A^jq/bK^All aw a d^LuoVI _^aJujVi C 15 |^)Jx 1 a 1 I Ax» jA^k A 

jS J^Iaj jjiiAl Index number ^j ^^1 ^lAkluol j!>Lk ^ 
]_0 C 5 ^ Integer Cy^ ciiI^)jx1a1I aA^^k^a ^jc. (JHaII 

;Jlill£ ^^ JjVI ^>j^^aixil djUiiVl <.-^Vi^Aj ^ ^j MyNumbers 

.'^j MyNumers(2) j MyNumers(l) 
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2^1 jll 


Declaring Arrays 

L_fl!^Lkj — l1i1^1jj!LujI Ua ^J:^ V — 1-^-^ ^O' ^ ^^l^liJLujlj q] 

(jc- _ 1 ^ "ic. (jj^ VBA C5^^j AjjIjJI c1iI^)jx1a11 

^^ J ^linill U;>1^ PubNC J’ Dim 4 X>K\I ^I^I^JLujIj L— 

First ind6X J(j-<i l^ic. 5ijix^aAll jijic. 

JIj]! JIUI .Last Index number f^J^' To <aK] 1 number 

]_0 C5^ Int6g6r Cy^ aA^^k^a Lil ^jjajj 

Dim MyNumbers (1 To 10) As Integer 

ji j Index ji ^ ^ jkx^^ ^ 

.1 L>^J 0 ^VBA -^1 u\^ LT*^^-“^ LS ^^ 

(Jjo^ 1 \ ^ nj\ll\l ^jjjIa^I 

Dim MyNumbers (0 To 10) As Integer 
Dim MyNumbers (10) As Integer 

A (^l£^l-^ 0 o^j 1 cJ^ cJ^ VBA di^ lil 

: Decelerations section u^V' ^ 

Option Base 1 

Multidimensional Arrays 

One” A^LaJl dj|^)Mll ^ djlijq;>i.ox>\l 

(J^Ijljj 0' cj^ c jI a9 ill djl3 Aijq;>i.ox>\l cJ;i^ dimensional 

0> ^)iajJaJ 0’ Cy^ LS^ 60 ^IxJ) dj|i VBA 

_aj^Ij j) (J^I 0^ ^txj) dj|3 (J^Ijuj 

I dj|i aAj^k^a lil (JHaII 

Dim MyArray( 1 To 3,1 To 3) As Integer 
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jiaj (J£] indsx number ^ji i._ sIa ^.la-a j>^‘n»l SjLuj^j 

: Jl:i]l ^ US 

MyArray(l, 1) = 100 

,“]_ j “i, 100 ^ ' 'j*-- Lu 



Dynamic Arrays 

I'U (_jc- ^'f- dilj^ AjS^ljjj «.lUjl UiajI 

: Jl:ill JlUll ^ us jL^l ^1 .IxJ jli LujIjS) dili 

Dim MyArray () As Integer 

Cfi" VBA ReDim 4..alS]| ^^Ia^jLuiIj I.^ 

^JjiT-uU «.Llll ^)jb^UtJI SjIc- 

.1 ‘'-i."',„i <>jaj*\ u JIU]I (_^^l j.^Ij R0Dim ^~i ‘'-i."'...I ^is^ytj ‘ 

;3ijUixa]! fjk ^)*^U*J1 ReDim 

ReDim MyArray (1 To ElementsNo) 

jj^UaJI jjic. (JjUj ElementsNo jr^Uall (ji ^_y =^jjal ^Jic, 
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(jUaill i." )\ V'l£ ^ (J-alsillI 


CjUjI£ ^ J^bull ,5 


4j (jjl£]l IjiA .Worksheet object ^jj tlp'^ (jlkill (jjl£ 

(j^ tlA JJ^ (_pa*J (^J tgjJa jC. PrOpeftieS (J ^^ ' (j^ 

(j^j eAi.lj (jl (j£-a-all (j-a (jUaill (jjl£ .AjIc- (j^-aJ MethodS 

_(J<a3tII LSS''^^ U 

Cjj ji Ijli Double quotes u'j^' 5JaLi.j ^ jl (jLLj jjlS sjLiVI ^ 

|4 jlllll <La^l ^.’I'slun (jl (j^<a<all (j-aS All BIO (jl (_jJI (jl 

Range ("A1:B10") 

l^i (jjiL^I (Ji.lAj ^jJajJ (jl UiajI t ^ '-vja Ja^ e.1^1 j Ajli. ^^Ic. (^ (jUajll (jl£ I jj j 

|<jlj]| <1.0^1 ~ .1*' A1 ^jl"^ II S jLuo^lk 


Range ("Al") 

;(Jla IjJajI (jiiL^I (_jiLa!>lc. (j^ (jUajll ^1 ^lAaJLojl (j^-a^ Named range f^l (jl^iH (jl^ |jjj 
Range ("MyRange") 

^JJ f^l (j:^<^ tAJj^ (>■ Active worksheet 5J=ui:ll J^l ^jj ^jU. (jLki ^1 sjLiVl (jlaj 

;(^lill Jllall ^ La£ (jlkill <_L^ ^1 ^ cUdI 

Worksheet ("Sheetl"). Range ("A1:B10") 
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(J- 


^ us ; ^sjujI ^jJAjJaJ i^jj^ ^ _Q*U^x> 

Workbook("Bookl.xlsx").Worksheet("Sheetl").Range ("A1:B10") 

4^SAaC.VI j) I a^a, ^\l ^ ^1^ (J^IS ^I I U l 3 ^'''' cIhU] 

cUJi Aijj ^ jjVi ^1 sjluyi J!!U (> 

Range("l:l") 

(_J,aaJ| s.la&Vi ^_gJj SjUj^l 'UlUll 4Xa^l (_J^Li US 

Range("A:C") 


I^l!i]| (JlUll ^ US djliUajll (j^ <Uata]| ^.liJLuil S^IjU djliUaj ^1 sjLijj^j 


Rang("Al:B10, D1:E10") 


Cells ^uji j:>u. (> jUaii) cmsi s jUivi 

Ua ^^jjLaU^ ^Ujy^aUJI S.U tCslls ^I.^^JLuiLj dilsLUllI s^UjVi 

'_ajy-all 4jt3l^l B1 s^UVl lil SUaS _^_j-a3«Jl ‘_ 

:^l:i]l Ua=Jl ^OiUaaj 


Cells(2, 1) 


,J^^^axJI (J-^ (JxU^I^ (_a, ^\l (JxU^I ^1 ‘“ 

^1 ^Ia^UuI ^^jSxJ ^SUa 100^ A1 jU W ^ ^Ua&V 


Range ("Al").Value = 100 


Cells(l,l).Value = 100 

(jULa^l i_^\ ^IAaJLujI (_jS.a^ AllBlO ^ i_s^ 100 ^ ^ja\l a.iJaC-1 LjJ^I |j| Ul 
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Range ("Al:B10").Value = 100 


Range(Cells (1,1), Cells( 2 ,10)). Value = 100 

1 ^L<ui Aic. Cells 

.6J^ 

Offset ^tJV' 

j^jc> (j’ Aja^L^I 6^ j^jj^ 

t- Ajj^-aL^I _6 AaC»VI ^1 t, 

^^Jjudlld L^tjudll 1^1 ^1 ;>tlj\l ^^Jjudll ^^^1 ;>^\l AJjoliIIj^ 6AaC»VI 

lJ^^VI (3^ cJljudll^ (JLujVU ^^^ic-VI (3^ ^ 46Aac.VI ^.^xJ Ajjudillj Lol 

AjI^I /\]_ AjI^I j^jc> 6Aac»I AjVIj^ ^I.^1aj .^x^ ^^^1 d^LuoVU 

|A^Li1I aLo^JI p ^a u1 ^ 03 


Range("Al").Offset(2, 3) 


Value 


Read” (^j-^U^a^l qjs^ ^(J^Iaj a x>jqll Value ajj^L^I (JIaj 

Jlull ^)iajudll La£ Ia^jjx*i (Jj^ JaSs A x>jqll l^)% (jl VBA (j£-<ia 1I .write 

:Message Box J^ A1 ^ j 


MsgBox Range("Al").Value 

1 l^A ^^jia^)xjj (J-<ixj V aJIHII a S^l^lj Ajlk 6^1^ Cy^j 

;0^1j^)JI iiiii -lie. 

MsgBox Range("Al:B10").Value 


Cy^j Variant cj’ Cy^ ac. jx>^x> c!jIjj1^x> s^I^)Sj (jI duS lil 

(J-<ixj ^l ^^x>x>ll Variant CS^ ^jjaj ^ 
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A-il^l (j’ c^' \j^ lA\^a\ ^ .Arrsy 

All BIO ^ dliJac.! j Variant Jl^l ^ ^ l^-xi 

iB2 ^^ cj^j 

Dim X As Variant 


X = Range("Al:B10") .Value 
Msgbox x(2 ,2) 


(JHaII L<iS Value L^ 

Range ("Al"). Value = 150 

Value ajj^L^I ^I^i^jLujI Ajli V ac. jx>^x> ajIac. ^jjj£juj 


RangeC'Al: B10").Value = 150 




^hA umI J Range object (jil^ A-ijjaljjaVI a-l^La]! ^ Value A-ij^Lk 

;/\l A-ilkil A-<i^ ^Uac-V (ji^lllll (jjjLa^l (_j-a (_5l 

RangeC'Al"). Value = 150 
Range ("Al") = 150 


Text 

a\aC. '^ 1.11 ^Ha3 ^4.1^1 ' ^ ‘ 4 TeXt ^ J ‘ 

|4 \/.-v \i jjij 5"1 (J^ ‘‘‘''' (^ 1-®^ B2 ^ 
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MsgBox Range("B2").Value 

lAaiiJl ^ LaS 4.-a^l <Ll^1 . 160 (^J 

MsgBox Range("B2").Text 
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^jl^ lil Lil iiiiS -1^ T6Xt (jj-3 ^Clul£ lit 

cJ' 4>jTi^t (jj^ (^Jlx^j^ VsIub T6xt (j|-3 (^j-^ C5^ 

(_^ ^JU>lJ 

Count 


^ciul£ lil Loc. ^)i^i lj!>Lk]l Count 

Vj R63d”Only ajj^L^I .V ^1 diljl^ 

; j\j^ ^ A1:B10 (jl-iaill ^ o^Ls ^jiajudll 

MsgBox Range("Al:B10").Count 


HasFormula 

FalS6j ji^ C1 ijI£ lil TrU6 J ^ A-ij^Lk]l 

Cj’ cJ^ TrU6 A-Ij^L^I Ajlk (jliaill lil L_fl^L^ 

Ldl ^aJ^Ijl^ L^’ (^Lia ^ lil Fals6 j diV^tx-d (jUaill Ij^Lk 

^^JJ A-lj^Lk]l yli (^V (J-^ax-Jl J l1jV-^ 1-*^ (jUaill (J-^axJ l1ijI£ lit 

.Null 

1^ Li^ FalS6 J A1 C 1 ijI£ lil TrU6 jiajudll 

icilli 


MsgBox Range("Al").HasFormual 


1^ (^J^lxll]| ^xjJalLuoJ Al^^l ^J3r*ix>\l ^1 


|\|[j|| A x>jq\l ^A (J-olxill Aic- CJJ^ CJ 

.Variant > c> 
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Font 

(Ja^l lJ^ Ja^lj 4-1 j^L^I 

. Ia^)^j Jia^l CJ^ ^lt3liC J' Bold (3^^ Ja^l 

! It3 lie A1! BIO (^ Ja^l {Jar Ajj^L^I ^l^liJLujI lil ^jJajJ JHaII 

R3nge("Al:B10").Font.lt3lic = True 

^Jajudll ^A^JLudj ILol^ Jo^l Jx^ 3^ (JlL^lj^ 

R3nge("Al:B10").Font.Bold = True 


JLoSVI J^Lk Ajj^Lk jljikl VBE cil^Loij 

diljL^l (j^jxj VBE " R3nge("Al:B10").Font." ^{j^LuJI {jJl^l 

AjIj£ (^.^Ijuoj L^ 


range("A1:BIO”) 
End Sub J 


font 



[^ Bold 
^ Color 
[^ Colorindex 
1^ Creator 
^ FontStyle 


A 


V 


Interior 

.AWx>\l {jUaill Color 3 nd pettern j Ajilk]! (jjL A-L^Lkll ^aa ^lAkluol 

;^U]| Jij£j| ^A^JLudJ jA^Vl (JjiJt All BIO cjJaill ^ U:^3^ 
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Range("Al:B10").lnterior.Color = vbRed 

^ L6. jjUl ^j c^j vbGreen, vbBlack Ji- u' 

5-3 JSJJl 


5-J Figure 


Color Constant 

Color Code 

vbBlack 

o| 

vbBlue 

16711680 1 

vbCyan 

16776960 

vbGreen 

65280 1 

vbMagenta 

16711935 

vbRed 

255 1 

vbWhite 

16777215 

vbYellow 

65535 




AojoiLui'^I (jJJ ^3^^ (j RGB ^l.liJLuil <.5^ 

4Lil ^jJa^ Jlj-aJI CjJ^^ 16 <. 5 ^ 

|lj^l^Jl (j^ (jUail (j^jUl S-HaC-V RGB 

Range("Al:B10").lnterior.Color = RGB(128,128,128) 

• RGB -I ‘'-v"'.,il ^.hjLuJI u''^'' iif' ^5~4 
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jUaiJl (IiUjIS iJs- Methods t-ijUaj]| (_>2a*j 

L_ajlia^l I^JA Cljl^)judx]| (^IjA 1 ^ Cy^ <c. L_ijUa^l 

t ^ I ^ ■- J> ^^jia^^xlLudJ 1^ i ^3 diLijlS C5^ ^ (S ^JJ*^**^ 

Select 

All BIO Cy^ c3^-^ 4 ^^i^jjujj 

Range("Al:B10").Select 


(jl I1^)lajuj ^^ikiuoj ^1 ^li^l (jA tLo (jUaj Select ci^ 

(jl£ lil bllo .Activate S^ Cy ^ .Active sheet ^JaAiull ^ jj\\ ^ (jLkill 

^a^jLuoj Sheetl ^^Uaill 

Sheets( "Sheetl"). Activate 
Range("Al:B10").Select 

Sheetl u^ ^ Hxk j ^ ^lull <Li^l 

Sheets("Sheetl").Range("al").Select 
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JS ^ .Copy and Paste Cj^ ^cjuoill cijULc. 

C 5 ^ (3^^ Copy ^oh-v^ C 5 ^ 3^^ 3^^ 3^ ^^J 

■Worksheet J^' ^jj ij^ Ai^j 

iDl AjI^U i.1^ (jUaill ^1 AllBlO (jtlajll CjUjia^ fj^ ^1^1 A^jfl]) A^l^_)^^yi 

Sub CopyPasteO 

Range("Al:B10").Select 

Selection.Copy 

RangeC'Dl").Select 

ActiveSheet.Paste 

End Sub 

Aij^ dlljjl^l (_j<a A ActiveSheet LLa.liAu)l (JliLall 1^ Ijjl 

^^LuJI ^ ‘ ^''■v I 

Sub CopyPasteO 

Range("Al:B10").Copy Range("Dl") 

End Sub 

Destination ^=^^1 a^-?'j !>Lal*-a (jl ^j^-»u>n Copy Ai^jll ^ji A'qjq^ (j.a jij^l I^a 

■ RangeC'Dl") '-i^'-=>‘ 

Clear Method 5 ^) 4i^j 

^AaJLaU JIjII .ij^l i^^C- Aiiiax t"'1 aj ■I'i ^j\ Jj dlUjia-a AajlAj\l e^A ja-aJ 

:(A1:B10) (jUajll J dlUjla^ ja-al Ai^e^A 

Range ("Al:B10").CIear 
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(j) (JjAj diljji^ Cl6arCont6nts jll ^iLjaVU 

.diUjii^l j 2 ^ (jl ^1 ClearFormats 


Delete method (-ilaJI 4i^j 


5j^IjI ^ (j^ liUaj LiAixi Cl6ar j clF' D6l6t6 <^-^1 j 

dl-^l (jl tdlil Ij^L^I Ajudl A Ij^L^I 

j) L-ix^l c V*W dl-^l -^-1^ Jl c <iK^ c V*W .D6l6t6 


_6 JJUJ' 


j^Llo 


DbIbIB (jjojL<ill ^ ^jj c3^-^ A qjl^jll (JaC. 

jl (jUaill i—ii^ |jj 4^1jVI sL^l ‘- . 'I^ JC I—a_^ 4i_ai^ 

,1^1a£Ij (jUajll ji L-Sji^ ‘ a’’'^ Jjjj Clj£ La ljl Jj.1^ 


: D -i J-a*Jl 4jjl2U (_j]Llll J J^l 


Columns("D:D").Delete 

:(A1:B10) (jLkill 4^0=43 ^Ll]! jj^I \J 


Range("Al:B10").Delete xlToLeft 

<>aj /'\l ij^Lkil ^Lujj '^OV xlToLeft <<al^l LLaA^JLuil LijI IjA L»->.*y 

Ij^LiJl j^^ic-Lj (_ 5 ^l xlUp «ttK\l ^l^iJLuil 
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.6 


Control ^JalLaiJ ^1 

(^j Cy^ <c. jx>^x> ji (3^^ L5^ ^ststBiTiEnts 

IF-Then 


Jjili CJ^^ aIa^I CIjIjlS is^ aIa^I 

^^djuoj IP ^a EIS0 ^ ^Ia^JLujI ^ 1^1 ^ ^1 3^^^ L5^ 

|p_ 4 \Ay ^iklj (^ _J!a^)judll (3^^ 3^ (^ Cy^ <C.jx>^x> j) ^)^) III 

;(j]ajudll (jjoij Thenj IF uj^ 4-^ ^JU^Jl ^ ajI Ua i^V) J^j^ll Then 


IF [laj^\] Then [^>^1 Jl^ (J >«Sn] 

IF, Then, and Else u' '^' '-^j) ^'■^' <-5^ Else 

IF [iaj^\] Then [^>^1 Jl^ iJ >«Sn] Else tJ >«Vl] 


IF- Then 

00 o^ dulS 1'^)^ ^A1 ^3^3^ 3^^^^ IF ^ 

.B1 result j^^' ^ u:J:J*j ^ fj t>j .result jj*^ Pass 






Sub PassFailO 

Dim score As Integer, result As String 
score = Range("Al").Value 
If score >= 60 Then result = "Pass" 

Range("Bl").Value = result 
End Sub 

IF - Then - Else 

IjJjl ljl 'LliiJI (jl^ 00 L>^ A1 (JllLall 

Else ^ *60 Cy^ A1 dul£ (Jl^ Fail ^ca^l 

^ b'*'*"' Lo^ (|p ^Xa^ 

Sub PassFailO 

Dim score As Integer, result As String 
score = Range("Al").Value 

If score >= 60 Then result = "Pass" Else result = "Fail" 

Range("Bl").Value = result 
End Sub 


IF-Then - [Else]-Endif ^ 

aa’N.'i .^jc- eAXjll cJ^-^ 

11 p <U<a^ (J^ 
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Fsil (jl 60 Cy^ cJ^^ A1 ^(^ 4 dulS lit ajI 

."Hard luck!!" l>^j*j j'j^ l?^) ^'-^VW B1 

l^llill Jj^l ^A^JLuij 1.1^ 

Sub PassFai!() 

Dim score As Integer, result As String 
score = Range("Al").Value 
If score >= 60 Then 
result = "Pass" 

Else 

result = "Fail" 

MsgBox "Hard luck!!" 

End If 
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Range("Bl").Value = result 
End Sub 


<>**^^*1 ^Jaj^)juall (JIaJ (^5^1) 4^)lajujVI |f (JSjuoII 

IP A <jIjS .Else ^3^ ^**^^*1 4 j^x>^)3I Qjii L^’J If 

^a^jJa^Lj l^l If ^AjIjS ^aJJ Vjl lA^)Si ^ Aij^)iall qj(^ (JjJaSi 

/Ja^)juall (^ CJ^ ^ LJ^ L^’ C (Ji ^^alLuoJ <^1 ^1 

^ ^ ^. ^**^^**^ ^ aJL^I D^A AiLjaVtj Ja^^^juoll ^1 

<jJa^)C. (Jsl (JjSj L_fljjuj ^lUlljj 

If - Then -Elseif - Endif 

^a Elseif (3^ u^ 3^-^ 

: Jlill ^UJl JSJJl Elseif ^\f'^ ':^hM 


If [JjV' iaj^l] Then 
[(JjVl (_3iaJi (JL^ 

Elseif [c^^l ^ j^' ] Then 

[(^1^1 Jajjiill (3^^ (J^ 

Elseif 


Elseif ] Then 

[j^Vl Jajjii]! (3^^ (J^ 

End If 
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IP <1^ 

^b ^ ^^ ^ ^If ^j^ (3^^ij ^ blj 4 If Ai^ ^j£JI .liL (3^^ lilj -Ljjill 

A^b 3^ {^jlf 

3^l Aic. L-iS^^ Ails If — ElS0lf ^ 3’ C^~J A^a^-^ AJa^^Lo IjA 

J^^Sll 1^ If A^b 3^ ^ Ja^^judll ^^j-alSJl ^ ^ .^ijjS 43^^^^ 

.^1^1 ^ 


Jli^ 

]-nj ^ CJ^J ^L^lJall A^^lc-^ /\]_ AjIsJI A x>jq\l L^j\)-^x>\l JHaII 

I Jbll£ 3 j% ^ 


JJ^^I 

A^j3I 

Excellent 

90 L>* 

Very Good '■^>- 

90 (>> Jai (.s^j 80 (>» 

Good 

80 (>> Jai 70 (>» 

Pass Jj^ 

70 tin (Jsi j 60 L>* 

Fail M^'j 

60 (>“ <-3^^ 


V bjbjo 6^)Si ^ ^(Ji^Vb A^I^)^VI b^ If — Els0lf ^ ^ASUjudj cS]^ 
bl JHaII J!aj^)juall 3^ L^’ 3^^ ^^Tn b^lj J!aj^)juall ^Jx>^ |f — ElS0lF ^ 

tSbj Aj^ISJI A-ia^^)bl ^)-<iljVl ^ CJ^J Ja^)judll ^aJJ ^90 3^ L^Uall A^^lc- dulS 

jjSlI ^ >^j If (> ^UjJt ^jIj d]j MsgBox "Excellent" aIa^ C^J -la^)judll 

L_fljjuj If 5Jb 3^ ^ 3> If ^jS ^jjV Llb-bl 5JI31 

:(^'j^V' 
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Sub StudentsGradesO 

If Range("Al").Value >= 90 Then 
MsgBox "Excellent" 

Elself Range("Al").Value >= 80 Then 
MsgBox "Very Good" 

Elself Range("Al").Value >= 70 Then 
MsgBox "Good" 

Elself Range("Al").Value >= 60 Then 
MsgBox "Pass" 

Elself Range("Al").Value < 60 Then 
MsgBox "Fail" 

End If 
End Sub 


If-Elself-Else 

4j| ^ Else uj^ 5JLaJI sjiA t|f — Elself ^ Else 

.Else .IxJ isUax..a]| ^^j.a 

La^ If — Elself — Else 'djLuJI A^\j^ SjIc-I ^ (idlj (Jll.a£ 
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Sub StudentsGradesO 

If Range("Al").Value >= 90 Then 
MsgBox "Excellent" 

Elself Range("Al").Value >= 80 Then 
MsgBox "Very Good" 

Elself Range("Al").Value >= 70 Then 
MsgBox "Good" 

Elself Range("Al").Value >= 60 Then 
MsgBox "Pass" 

Else 

MsgBox "Fail" 

End If 
End Sub 

(Nested IFs) If If up- 


Comparison operators ciUjllAil 



j-uil 

L>* 

> 


< 


= 


>=,<= 


<> 
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A >jV^ _AjilalAll 4C1 jIj^I£a 1I S^lc- ^^iklLaiJ 

AND, AjilaiAll cIh^j .FsIsb ^j’Tru6 1^) AjilaiAll 

OR, and NOT 

^Ha 3 Fals6 ^j' Tru6 1^1 lAjjiU a >jV^ 

^Qj>^ Fals 0 Tru 0 ^^ V^*^**^ ^aj^J^Lo aIa^ a^IhII aIa^I 

;A1 


Rang0("Al").Valu0>= 70 


and 


^l£ dulS lil Tru0 ^j Aj^li-ail AND cl^l-x-SI 

.Fals0 cjj^ L_fljjuj ^ 1^1 Ayf\\\\ (jU Fals0 ciijI£ lil Lol .Tru0 

(jjjilaiAll (JjIIa^I ^JQ*^**^ C1ijI£ (JL^ ^ JaSa ^TrU0 CJJ^ ^Uli A-i^^)Jl aLi^I 

A 1 (^ A>i^l (jj^ (ji <>JlLjill Tru0 AND 

:(100 cl^ B1 Aa^Ij 70 c>i 


Rang0("Al").Valu0 >70 AND Rang0("Bl").Valu0 >100 


OR 

l1uI£ lil TrU0 ^JjHaU or ^.liJLuoJ 

.Fals0 cjj^ ^^[k Fals0 1 -^ c1ijI£ lit Lol .Tru0 j) 

y^1 ciul£ (JL^ ^ Tru0 cjj^ A-i^^)JI aLo^I ^^Has 

:Tru0 OR 

Rang0("Al").Valu0 >70 AND Rang0("Bl").Valu0 >100 
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4 4^ 4 

^ AlC' ^jllMI iJa^l ^ (Jxl^^xJI 

^^jcuMM ^a- ^ C5^ ^ <Mosll ^1 ‘" ‘r3t6 ^ ^jjj*"' 

(j^ OR LS^ U tin 

(Range("Al").Value > 70 OR Range("Bl").Value / rate > 1) 
jJall (jV ^UjJl (Jjjuij lie. Overflow VBA u' '^1 True ' ^ uj^ 

_L^ ^j)<tui.a <jLa& C?^ ^j^tLall 4Xa^ 

Sub test() 

Dim rate As Integer 

If Range("Al").Value > 70 OR Range("Bl").Value / rate > 1 Then 
MsgBox "Right!!!)" 

End If 
End Sub 


not 

MjIIMI aIa^I ^ 7-j"'' dul^ l.^li _<jijaLa]l ^ 7-NOT 

Range("Al").Value > 70 

aLo^I not ^ ljl True ^'' ^ 7 ~T'''^' ul^ False 

Not Range("Al").Value > 70 
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J114 

.70 A1 ^(j^ jJ I'ij ^'' 


Figure6-1 


Microsoft Excel X 

This value cannot be less than 70 


OK 


Sub Test2() 

If Not Range("Al").Value > 70 Then 
MsgBox "This value cannot be less than 70" 
End If 
End Sub 


2 Jli« 

^jj ^ Grid lines ^jl (_>!ajc. ^ jSj 

Sub ToggleGridLinesO 

ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines 
End Sub 
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■ I AjIc- Jax..iJa]l ((J^oxJI <^ljJal (j^oj 


.(JaxA\ ji US Worksheet t>^j Window Gridlines ^lajlal 

.ActiveSheet. DisplayGridlines o^J ActiveWindow.DisplayGridlines '-UjaJU) dlil 

Select Case statement 

Select (■ UHli (j^ ' g n; La^ dlljU^I (j-a JjJiaJl (jl£ ljj 

jji 4Xa^ 4 JWI e^A Akb .(|f — Elself (Juasl (jj^ jj^ Csse 

A^l (jSaJi Ajfrj 4Xaia-all OptloHS L>® jjaJIj Expresslon ®-^lj 

,4JIaII (jx ^jjiii dlljLi^l 

: Ua^l aiA Akb 


Select Case Test_Expression o-^' 


Case JjVl jUiJI 

Code 4 T^jV' ^-a J'nII l^A (_^lJaJ (JL^ 


Case j4^' 

Code 4 '>jV' ^-a J'n\I l^A (_^lJaJ (JL^ 


cb^Select lsj ^^ 







Case Else 

End Select 


JII4 

1 ‘“10 1 u^ .^Ij <Ulj «.Li^l ^ Jlj^l 1^ 

jAj Expression u^l Uj^ _i_aJi3jal£^ jIjL® U] j t*—j-aJl s-“lj jl-^j (Caj^ii 

juc. .(10 1 (j-a) L>^ ■^•^1 ^ ‘performance j:J*^l (jc. Sjbc. 

Csse 'd-a^ (j-a ^j^)iJl ^ ^ i^.a1 jj£11 Alili ^ CllljLi^l (j-a (_^i ^ jJJalll (_^LlaJ 

■Case Else (^'j^' -^j^' ^ fJ '^'j Select 

Function Bonus(performance, salary) 

Select Case performance 
Case 1 

Bonus = salary * 0.1 
Case 2, 3 

Bonus = salary * 0.09 
Case 4 To 6 
Bonus = salary * 0.07 
Case Is > 8 
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Bonus = 100 
Case Else 
Bonus = 0 
End Select 
End Function 


(Case 1 (J^) e^>ujL^ Case S^-la-all <-<1^1 ^ ^ s^.la-a ^ (_^Uaj lij -1 

Case J^) To S^^L^JLa]! ^Uaj ^_jxjuia ‘^Ca^ j^Uaj ^1 I'^j -2 


(4 To 6 

(Case 2,3 ) cJ^ ^.ikJLuij ^>^1 ^ ^ (_^l 1'^) 

(Case Is > 8 cJ^) Is ^Akluij dlUjlLall (J-aljC. ^Akluij (jl U£ lil 


-3 

-4 


2 Jli« 

^Xa^ ^l.lkJLujlj '■" ' C*'.''*'^ (.^1^ ^ ‘ ejlf-lj (Jl!La]l 

(ji Ua iii.'i .If — Elself Cf- cJj-^ Case Select lJjjj Ua .if — Elself 


Sub StudentsGradesO 
Select Case Range("Al").Value 
Case Is >= 90 
MsgBox "Excellent" 

Case Is >= 80 
MsgBox "Very Good" 


79 






Case Is >= 70 
MsgBox "Good" 
Case Is >= 60 
MsgBox "Pass" 
Case Else 
MsgBox "Fail" 
End Select 
End Sub 


3 

(JiujVlj 

SJWl J!lk ijA •‘ulc. ^ i^'^\ ) fSj jL Month(Date) 

(j-a 'g >>»» 1 ^ dlljl^ 3 l 5^ ■»•>"< ^ <alik-a 4-a^ 12 Cf' ‘(Date 

'»"' j"'' ^il It"'!! ^^■N.a\ ~Pq 4 

.^LaJI (_^jiuJl ^jll jaS j jl ^ 


Sub ShowCurrentQuarterO 
Select Case Month(Date) 
Case 1 To 3 
MsgBox "Quarter 1" 
Case 4 To 6 
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MsgBox "Quarter 2" 

Case 7 To 9 
MsgBox "Quarters" 

Case 10 To 12 
MsgBox "Quarter 4" 

End Select 
End Sub 

(JjA^ Colon (jlliakill LLa.liJLuil Jj£]| ^ LaS 4iLuill (j-a 

4 Jj)g >H ^ tfUj .Case ^(JS .i*j 

Sub ShowCurrentQuarterO 
Select Case Month(Date) 

Case 1 To 3: MsgBox "Quarter 1" 

Case 4 To 6: MsgBox "Quarter 2" 

Case 7 To 9: MsgBox "Quarter 3" 

Case 10 To 12: MsgBox "Quarter 4" 

End Select 
End Sub 


81 






82 








Looping Statements j'j^' tW .7 


ci'jj' jl djlilx^n^l Ajjx^ j\^rL SjQM _2 

^ ^ ^ ^Q -aI I (. ** i t Q ^ L /A \ I 

^)j^Ijc> Ls^ Ajjjl^ <.**i1j\x>c. -2 

SaWx> 4 \x>^ L_flj^)^l Ls^ Ajjx^ <.**i1j\x>c. ^jVn -3 

Ag.jx>^x> ^)j^Ijc. (JIa Coll6Ction ^^ <c.jx>^x> ^)j^Ijc. C5^ 4 n*x> CALiIac. ,*^jVn -4 

Charts collection djUJai^l 

l^jlc. L_fl^)3Llj L_fljjuj Llj|^)Sill (^j .VBA ^t-*J U1 Ia^jj jI^)£11I (Ja^ (Ja jjAxJI c^IUa 

For,...Next 

(_J.a*J (J^Li LOOpIPg cJ"*^ Jajoiji A s^A .IxJ 

(J.4^1 jl jSj ^ ,(j j^l AjiA C 5 ^j '-^ '■^ u' Counter variable 

J''c''^' ^*'Next j For tj^ Ca 

1 

■c^'j^ 100 cA) 11> ‘ (Jlxa IJA 
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^Luill (J- 


Sub AddFirstlOOO 
Dim Total As Integer 
Dim Count As Integer 
Total = 0 

For Count = 1 To 100 
Total = Total + Count 
Next Count 
MsgBox Total 
End Sub 


‘Counter variable Integer (> Count ^ JlUl IIa ^ 

.For Count = 1 To 100 (>> <5 ^ For c>j 

.4^1^! 4JLa^ (.5^ For ‘’'ja'"' (J£ Aic. 1 jl.i£aj Jjjj JJSVI 

^ ejx J£ ^ .4 j jjII ^ Integer Total j^*^' ‘‘Ciul ^ 

.Count If cJj*>»'' 

for 5^ step 

(jl JJJJ eluS lij .for l 5^ 1 tlijLui ejSi ^ LaS 

.If 4Xa^ Step 4_^lllLaII 4 ..K^l (jSooll (2>4 

2 Jli« 

(JSjudJ 100 (.5^^ 1 C>^ (jUajll 4jtal^l 4.J.i^)all .il.iC.VI ^.a'Nj (jl lj.ijl ljl 

:^l:ill j=.Vl 
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Sub AddFirstlOO_Odd() 

Dim Total As Integer 
Dim Count As Integer 
Total = 0 

For Count = 1 To 100 Step 2 
Total = Total + Count 
Next Count 
MsgBox Total 
End Sub 


ajA (JS ^ ^ 2 for 51*^ ^ Step LLa.liJLujl Ua 

LaS (JHall for ^jlaiuij ^iHas ci_jlLuillj Step UJ^ (ji Cy^ 

Sub AddFirstlOOO 
Dim Total As Integer 
Dim Count As Integer 
Total = 0 

For Count = 100 To 1 Step -1 
Total = Total + Count 
Next Count 
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MsgBox Total 
End Sub 


^aJJ for ^ \Ay\ Alili (JS (^J ^ cJj’ CJ^ (JjjSxJIj 1 *lU^ 

.Stop ”1 Cy^ 1 

3 J^ 

^1 ‘“ 'j*^ (J^oxJI u^ ’'''•>■ ^ JliLoIl 1^ 

.Input box L3iJ^ (j^ ^.’l'^'‘uiioll (J^ (j<a ^ AjSljJal (J-assJI (jljji 

4i^ juajj ^ ajji (JS (J.ac. ^jj ^UiaV Shoots.Add ^lAaJLojl ^ for 

.for 


Sub AddShootsO 

Dim ShootsNumbor As Intogor, countor As Intogor 

ShootsNumbor = lnputBox("Ploaso add tho numbor of shoots you would liko to 
add ") 

For countor = 1 To ShootsNumbor 
Shoots.Add 
Noxt 
End Sub 


4 

~l-\ La^ ''ja''*' ^j"'' ,^)3ajail Aj^Ij 
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Sub ShadeEveryThirdRowO 
Dim i As Long 
For i = 1 To 100 Step 3 
Rows(i).lnterior.Color = RGB(200, 200, 200) 
Next i 
End Sub 
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Figure 7-1 
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^Luoll 


Exit For 6^ for 6^ ^jj^' 

A x>K\l L<i D^lc- 4\x>^ Exit For ^ 

_for ^ (3^ -la^)jill lili CJ^ ^aJJ ^1 ^IxJ 

Jli^ 

/\]_ 4 (^jj!i 1^aj Ij^L^I ]_0 1 o^ aIa^ ^LuojI ^ (JHaII 

.Cells(counter, 1) = counter (> - 10 J^Vl eUJb Vj^j 

4la^ i^jji 4 counter ^ t**'■v u^i (_]L^ ^ If 4JI^ ^Ia^jLojI 

.For 


Private Sub Exit_For_Denno() 

Dim counter As Integer 
For counter = 1 To 10 
Cells(counter, 1) = counter 
If counter = 4 Then 
Cells(counter, 1) = counter * 10 
Exit For 
End If 
Next 
End Sub 

2 Jli« 

^ For ^h-su>il ^ Jl^l I^A .For ^ Exit For (jc- j^i <3^ ^ 

j_j]c. 4jtal jll l_a^ 41*^ (jc. sjL^ jA .1^.1 J (_J.aL*-a ii.lj s.ljjljy Exit For 
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ABC123 ls ^ aJIhII a ^ lil a c^IIj qjs ^ ^Jjl 

.l^j AB AB1245 ^ 1^) ABC 

(J£judllj <SI^I 


.Str ^j3r*ix> aI^aaII aIa^I a^^^ -1 

.Lj^ 5i^jli TextPart cr^ "2 

Len(Str) (j-^1 ^ L 6 n ^Ijill ^h-sutil ^ -3 

c> Charachter >j Mid j IsNumber Jj^' For ^ -4 

^l^pjLuoU Mid ^1-^1 (j' clF' cj^ 

^jSj 1 A nj -jLuoJl Qjs^ I^Aj- For ^ 1-^^ ^xSj cJ^ ^ a\I 3^^ 

.V ^1 ^j >jli Ja l)-^^ IsNumber 


^l^^xil ^J <1 a^ j jjxIaII ^ ^For a^ajuIU -5 

.Len(Str) l^jjii A-llc. ^ ^^^JaJLAll (^j-^aill 3^^^^ LlLdlj Q 

aXa^3I S^)A (JS <Ia^ 3^1"^ If A \a^ “6 

.(f3j t> *jUt 3 ^jll ji (^\) True ciil£ JU. .lsNumeric(Mid(Str, i, 1)) 
t ^'''3*^1 ‘ ^1.' ■ Exit For ^ 3 .'.'^*' 3^ 

A <aj^\l .TextPsrt (3*^-*-^ 3 ^ ^iLuJI 3-?^3^^ 

1^£-L^^U <UI3I 


Function TextPart(Str) 

Text Part ="" 

For i = 1 To Len(Str) 

If lsNumeric(Mid(Str, i, 1)) Then 
Exit For 
Else 
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^Luill [J- 


TextPart = TextPart & Mid(Str, i, 1) 
End If 
Next i 

End Function 


Por ^ 

(JliLall ^.LudjV 4For ^l.liJLuil (j£-a<all (_j-a 

y_2 (_]£ju^l Lo^ ^''^diTi\l 4^^ (_J^juj (^'OxJ 1 , nl 
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Sub MakeCheckerboard() 

Dim Row As Integer, Col As Integer 
For Row = 1 To 8 

If WorksheetFunction.IsOdd(Row) Then 
For Col = 2 To 8 Step 2 

Cells(Row, Col).Interior.Color = 0 
Next Col 

Else 

For Col = 1 To 8 Step 2 

Cells(Row, Col).Interior.Color = 0 
Next Col 
End If 
Next Row 
End Sub 

I _((_a^a. ^ fiA.oC'i ^UjLaJ ^ JHoIl 

1. a^a.^\l Lai 4j^jLa 


For ^ b-v _i_aja. ^ <gjLa^l «.bljV For ^ b-^ bbfjl 

i_ajij^l a.i<ic.i jlj£dl i. aj^^II a.i<ic.l jlj£dl s^lj i FOT ^^''b-^ lilbA 

^1 I_a. IsOdd ci'^sdl 'Ulj ' W ‘'-i.'‘u,il LiA 

jljSilb For ^(True IsOdd ^b ^^^uulb 

4la^ 8 (.5^^ 2 Cy^ srac.Vl 

For Col = 2 To 8 Step 2 

<^a d^ i_g^ 2 ^ gai ga^ Step 2 b-a.i^lu)l bjl bA b-^y 

L>^ g^^b I_a. ^\l ^b1 a1 gc, A^lbll \l 

Cells(Row, Col).Interior.Color = 0 


.4j^jg]l 1 . ajr^\l ^ 4j^ga]| b!>LiJl jbj (Jlalbj 
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iLuoll 


For,..Each.„Next 

^)j^Uc. ^ (JS ^1 jVI (j-<i ^For...Each...N6xt ^.ikiaij 

ci'jj' j^ljl AiaHl e^A ^AaJLojJ (ji Jla tAfray ^ji CollSCtiOnS 

^CjlsUalll .^1 (j^ojJa Ij^l^ C5^ ^ ^ _ 

jA (jl Counter variable 'j:?^ ^I.iaduil ^ V For <>« 

■Collection ^’'<*■- (.s^ 

dili jq t -o o i l (Jj^j Collections l}j^ "^3^ 

(CjI jjilA]!) ^1 j]l (J^l 2^1 j Arrays 

Jli* 

t l.ic. La i-'iau For...Each...Next ^l-^^duiL JaujVIj .ij^l 

Sub CloseWorkbooksO 
Dim wb As Workbook 
For Each wb In Workbooks 
If wb.Name <> ThisWorkbook.Name Then 
wb.Save 
wb.Close 
End If 
Next wb 
End Sub 

;^Lill£ For Each Next 5-La^ 4 jIj£] dil^jj lilLiA ^J\ U1 ^>> 1 ^ JLiall I^a ^yi 

^ Jgjic. LlllAa*]! jIjSij latll ^jj (Jjiij (j.a (jJ3«-a (jjl^ J:J*^ (j*' U-^VI "1 

. Workbook (> wb f^W Cf' u^V' ^ 
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j 1 6jiaaJl fjk <jc. ^ ^l.laJLujL FOT ESCh N6Xt 3 jIjS -2 

For Each jlajoill liaj^kiail Ua .IgJ ^1 Collection 

:Next 


For Each wb In Workbooks 


In ^ (wb ^ For Each -i 

.(Workbooks ^ 

If 4 X 0 ^ 1 , nl ‘ 4 jIj^ -3 

l^jC- S^Lj& 4»^. ^1V, ^_]liLa]| 1.1 a 4»j/'.v‘i\l ^ir-, ^ajoj) ^^■N.a\ 

I _a'u ^/.\l ^jj]| ^2)C> (_a\lA. /. ^.Auil I _a*' - ^ (dliilx^^ 


If wb.Name <> ThisWorkbook.Name Then 
wb.Save 
wb.Close 
End If 


2 Jli« 

4 j\l ^ \l (J'OxJI 4^^^ t.a ( a*', (3<a«JI 

Sub HideSheetsO 

Dim Sh As Worksheet 

For Each Sh In ActiveWorkbook.Worksheets 
If Sh.Name <> ActiveSheet.Name Then 
Sh.Visible = xlSheetHidden 
End If 
Next Sh 
End Sub 
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^Luoll 


3 

4Xa£- V J s^)<a jl-^Jalj 4^l!i]| 

(j^-aJ V_5 e^)-a (JS Ja^ (_}-aC. ^'g hi ^aJaluiJ (Jj > >i^VI ^^j-a i.''n*\ (Jj ui^VI 

j <jai-all (jljjVl ^J.a-N jtg-ial 


Sub UnhideSheets () 

Dim ws As Worksheet 

For Each ws In Worksheets 
ws.Visible = xlSheetVisible 
Next ws 
End Sub 


4 

^ .jijjoiVl (jj^W A1;A20 (jdajll ^ (jjjbj 4dl!ill <3-^^ 

A1:A20 (jUajll (j^ ^ ^ .cell j Rng b»Aj Range (> 

'■LS^ J^' jiajJl (S^ (>» Rng 


Set Rng = Range("Al:A20") 

Range collection 3'-^' j'j^ For Each Next ^ ^ 

l^A cell .cell U:J*ddl (j.a blJjj (Rng e.i_j^_j.all J 

^jj o^yi (_JS (SA^Ij laUaj _ji sA^lj cell U;J*ddl (JiaJ JllLall 

AjI^I LS'^^ *_ 'ij>^ (j^ajJa dul£ Ia| ^IsOcIcI ^Da (jx ^l^}£llll 


Sub PaintOddCells () 

Dim Rng As Range, cell As Range 
Set Rng = Range("Al:A20") 

For Each cell In Rng 
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If WorksheetFunction.IsOdd(cell.Row) Then 
cell.Interior.Color = 0 
End If 

Next 
End Sub 
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^Luill (J- 


5 

ci'jj' ^ ^lUll ^jii 

ws Worksheet i> -1 

Worksheets lU^' SjJ ^ J j^ For Each Next <^1^' ^ -2 

■WS j:^^' c> Collection 
WS If ^ ^ cJ^ (^ “3 

Ij^Lk dulS lit L<i COUOntA ^I^I^ILujIj |f a\A y ti'jj' 

^ '1 ..'^ ' COUntA (‘J^ J ‘‘‘'J**- .dlUl^ 4j| ^_ 5 i& (_$jiaJ (J-a3«Jl ^JJ 

jA (jilij ws.cells LULs-aJ' CountA jjLkj ciiUl^ 

_(_J.a3L31 (_J.aj.ij (jUaj (jc- sjLjC- 

^jj I—si^ ^ ^^jli ^jjll (ji (_ 5 l^ CountA \iVn 4 -njT< uj^ (-5^ "4 

Ws.Delete !(. 5 -?^j J-iml l iJ^lL (jx (JjiaJl 

(^ <La^l LlaiaJLujI (JjutJI ‘ °'''*^ ijc. ^'' i2 (.5^1 (JjLuj^ -5 

Application.DisplayAlerts = False 

(jc. (JjLujj (Jj* Silc-l (JtL^ (j-a 4.jlc. (jlS tal ^aJ 

:^lill Ua^l jjjL 

Application.DisplayAlerts = True 

d^_).a (_J^ ^Lau^ (_JjjuJ^^I (_JjLau^ (_]t* ^ ^ | jt 

,(_Jji3«Jl (jljjl L^-^j *• 4Jj' A\ e^A 

Sub DeleteEmptySheets () 

Dim Ws As Worksheet 

Application.DisplayAlerts = False 

For Each Ws In ActiveWorkbook.Worksheets 
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If WorksheetFunction.CountA(Ws.Cells) = 0 

Then 

Ws.Delete 
End If 
Next Ws 

Application.DlsplayAlerts = True 
End Sub 


Do...While...Loop j'j^' 


ja \ jVI ^aJJ iTrU6 (3^^^ -la^)judll LiJliaj Alc- 


Do While [-hj^l] 
Loop 


^ W-v\l tj (Jsxu'^lj »' ‘'■^'i, "I ^ tj, dLLa£ 

Hello VBA" 


Sub DoWhlleDemo() 

Dim counter As Integer 

counter = 1 

Do While counter <= 5 

MsgBox ("Hello VBA, " & counter) 
counter = counter + 1 

Loop 
End Sub 

i ^ 

.1 _j <5 J COUnteT Cf' ■! 
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^Luill (J- 


(jiaJLa Jajj^l (ji LalUa 4ji cLu^ couDter <= 5 j^' ^l.ikiujl ^ Do While .2 

'ijVu ^ True 

|LaAj tflLiA A\a"\ .3 

MsgBox ("Hello VBA," & counter) 
counter = counter + 1 

jkuJI U ^ " Hello VBA" jlj^ JjVl ^>iajji]l ^ 

.jl jSjII ^ ajx J£ 1 jl.ii<ij counter 
^ False ^la^l 6 counter ■^'■^' .4 

.jlj£ill (>i ^jj^' 

2 Jli« 

J'^ .( ActiveCell.Value <> Empty (>) uj^ V J Ua jlj^l Jaj^j 

ActiveCell.Value = j^Vl (> 2 ^ u' 

(_]sxu^U 4l-.,^''\i 4j\-i.\i' ^ ‘ActiveCell.Value 2 

^ <c .jli 4Ja^l AjiaJI t^ia. ajLjJI jl jSj ^ .ActiveCell.Offset(l, 0).Select 

_ 4X0^ (2>4 


Sub DoWhileDemo() 

Do While ActiveCell.Value <> Empty 

ActiveCell.Value = ActiveCell.Value * 2 
ActiveCell.Offset (1, 0).Select 

Loop 
End Sub 
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Do Until...Loop 

(jM^at J FsISB (jl ' )-» LiA ^aJJ ^1 Vj DO WHIIb ^ ^ Ixi'nII e^A 4jljujj 

; Jl!ill£ Do Until UjVl U^jl lil bliLas .Do Whilo 


Sub DoWhileDemoO 
Dim counter As Integer 
counter = 1 
Do until counter > 5 
MsgBox ("Hello VBA," & counter) 
counter = counter + 1 
Loop 
End Sub 


Do Until ©jilc.) cJHaII Lai 


Sub DoWhileDemoO 
Do until lsEmpty(ActiveCell.Value) 
ActiveCell.Value = ActiveCell.Value * 2 
ActiveCell.Offset(l, 0).Select 
Loop 
End Sub 
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^Luill (J- 
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VBA ^JJ .8 


.VBA j^l Function Jtutil ciljl£^U <ji UjSi (^jUaJI ^ 

(J^ljLllI VBA (Jlj^l ^1^1 LS^ L_fl^)xlj L_fljjuj 

‘(Worksheet functions ^jj J'j-^ cr^) J'j^'j VBA 

.Igilj^ ciii ^1 Custom functions Jj^'j 

^ U 

^jis ^ ^)]ajujVI (j-<i ^jx> 7 ^x> ^jc. 6jL^ Function 

Aijj SUM _6 ^Ij Cy^J J djULuo^l 

djLiJax^l ^ ^ djliUaJ dulSl CJ^ A^lj 


(Built-In VBA Functions) VBA Jtjiit 

^ .'^U V l^jJaxjj Argumonts ^ ^y !>Lilx>i Jlj^l tdlj (j^axj 

c^IjA ULaJi Aji-niaJ 
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aHaVI (J ^«} ^liaC-l l^ij (Jlj^l U^ L_fl^j VBA 

(J-oIjlIII ^jJa^ ^1 

Date, Time, and Now Jtj-^' 

Now i^jJI Time ^1-^1 La^ ^jrjJl Date ^ 

! dis^l Q^^yu ^ dis^lj ^jlii]! 


Sub ShowCurrentDateO 
MsgBox "Today is:" & Date 


End Sub 


Date cJ-ajd! (.5^^"^ '_a^tij Vj Cj^Laist-a .i^lj V (Jl_j^l e^A ^1 LiA h*\V 

.^jli (JilljSl AkU Now (J-asdl ^jj ^bj tii^AiaL*-a]| (j-a (jliklj (jUUI and Time 

■'(^"'11 j|i—ijui VBE u!^ 4ijl_uill (JIjaU A^jli Loiljsl uiiijAal i^ljl jl ^Ijll (_^_5 

Len ^b 


^1 jaII 4ia^l (jc. ejL^ jAj Ia^Ij ^Lala-a Ailjj i 

^^aljj^ * 11.1 i\\i ^jjj^ 


i_iLui^ 


^ ‘ _'' Len ^b ^jii 

j <j]l:ill j^yi '_sj^Vl <3jx.a 


:j^Vi 


Sub GetNameLengthO 


Dim UserName As String 

MsgBox "Number of characters in the username is:" & 
Len(Application.UserName) 

End Sub 


^AiJLaiiall ^ 14 ija-al UserName j (J^aiSVl 


LlaA^Jiuil bji Ua 


.Len eliaAkiail .Application.UserName (> Jr^VI jJ 
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3-1 La£ (J‘ *' \'°'''' .ijc- 


Jlj^l 


Figure8-1 


Microsoft Excel X 

Number of characters in the username is;[^ 


OK 


Month and MonthName <^1-^ 

ji^L MonthName f^j d^j*^ Month ^1-^' 

a \\ ^)iajuall 

Month(#l/12/2019#) 

AHjIjS ^ 4-1^ ^1 Ua ia^V J ‘(fl) ^aJjudll ^jUll ^jJaJ ^1 

■(1) jdd,\ tUj (Month/Day/Year) 

:2 

I^LaJI 'Jg uill ^ajbul (_)^^)3U 

Sub ShowMonthNameO 
Dim MonthNumber As Integer 
MonthNumber = Month(Date) 

MsgBox MonthName(MonthNumber) 

End Sub 
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(J- 


^ ‘ ^''■v I 

Sub ShowMonthNameO 

MsgBox MonthNanne(Month(Date)) 

End Sub 

Uj| (■’'j)-iui\I jU^aikV Nssted functions Jlj^l liaAiJLail Uj| Lia Jsti.V 

■ MonthName Month ^1-^'j Month Date 

TypeName ^hVv<il 

;j,w<a\l ^jj (_pajaJ TypeName “iun 


Sub ShowTypeO 
Dim ObjectType As String 
ObjectType = TypeName(Selection) 

MsgBox ObjectType 
End Sub 

3-2 (J^^i <^LuJI Aiijj <> 7-j"'*' (jj^ (jc- |j| 
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Figure8-2 


Lii^ LJjJ ^ 


Microsoft Efcel X 


'B" 


Picture 


OK 


T7 



2aj 2 V VBA JljJ 

^ J ^j Ak- ^ ^L^jU ^jSj V VBA (J^ c^Ua 

iA^jljudll l^A ^ iMSgBOX "1 

(jC- (J^ 1^) jVj (J-^ 

^li jljjVl d^A -LaxjJaj j'jJ ^yc^ ^1^1 o^A 

0-<ilj^)JI 4 o^A ^l^lkjjuol <j 1 oA 

OK J’ a-AaxJ) ^UlSI CbpicbI ^a^jLjlaII ]-^«;>>>j u^) 
^a^^LoiaII aJIaII oaa llnputBox -2 

oAA ^lAkjjuol ^jJajJ {JHaII _0aIj^)JI <a^I oAA ^lAkiuol ^aJJ ^ CJ^J n* a 

^ Cy^j ^AkjjuoAll 0 aIj^)JI aJIaII 



























Sub Power2() 

Dim Number As Double 
Number = lnputBox("Enter a number:") 
MsgBox Number * Number 
End Sub 


.8-3 InputBox JLkjVl Lil <—aJj*un Hc. 

Number ^ajj i_ jaj 

■ j'(jJajaj MsgBox ^ iyij 


Figure8-3 


hltcrosoft Excel X 



(_]l» ul"' $.l£-.^2jall 4JI^I :Shell -3 

; Jlill di^ 

Shell {Program^WindowStyle) 


jl^l jA WindowStyle j 4 -^jUa-all ja Program Cy 

j^jUll ^ ‘Minimized *J Maximize *uj^ u^) ^ 

8-4 J^' ^ -(c^'---- ‘Not Focused Focused 
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ah-i. /'U (^^LujJ VBE lj& Ja^V ^l^Jal 

jl^!A] dil^Li^lj VBE L^^^UaAll ^ajuol 4 \ q\1 

_^jjjL^VI dlLft^lc- CJ^ <> ^ J 0><ilj^)Jl ^sjujI 1 Ja^Vj ,1 ^ 


MsgBox Number * Number 

X = Shell("notepad", 


F n H Shell{Paf/?Wame, [WindowStyle As VbAppWinStyle = vbMinimizedFocus]) As Double | 

0 

vb Maximized Foe us 


0 

VbMinimizedFocus 


0 

vbMinimizedNoFocus 


0 

VbNormalFocus 


0 

vbNormalNoFocus 



Figure8-4 


^I^i^JLujI ^IjjI dAA <SVI 0^1j^ ^lc>^iLuj| <SI^I 

(Jjxjaij ^Ijj) c-jjujL^I <jiljudl Snipping Tool -Lliill ji 0><ilj^)JI 




c_i^j Proc6SS ID (PID) ^j-^Lk]! ^j ^L^jU ^1^1 ^jii 


(JjJaSVt (3^) PID cJ^ ^ Uj>i 1 <SVl ^Ic-^iLujlj A^lUll 
. aA\ Shell Uzi^ ^ (j^j ^ Variant c> uj% 

_lLi11 ^I (Jj^^asll 1 ^ \j* x*rn\ (JSjuj jI CJ^^ 


Sub LaunchCalcO 
Dim PID As Variant 
PID = Shell("calc", vbNormalFocus) 
End Sub 
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Jtjilt ^ jj^ L)^ dJ^LuL4lt uilla 

VBA d^^Lud^l ^Ll^ 'VBA 

i^\ vbS ^1-^ 1 LoS .HbIP L^Ia^II ^j>i jl FI JaxjJall 

^ Wq*i\1 1 \ c^^yA 

L_fl^)^Vi ciiji ^lillll (JLiSVI Cy^ d^liLuoVI Uaj VBA 5-^11aH 

6 * JjVl 

8-5 (^' 


VBA. r 
End Sul^-^Abs i 

■■:i^ App Activate 
■■:■:& Asc 
■■f:^ AscB 
AscW 
■■:i& Atn 

■■:i^ Beep_ ^ 


FigureS-S 



Worksheet Functions J^' ^jj J'jJ 

(illj (j'OjJa Ajc, I"y La V IjL^I i^l V) VBA A^.aA<aII L>^ 

(JljJ ^-(hat Xi ^lAiJiujlj (JojoiSV VBA (_5^)^1 (Jlll^Li^ VBA >'dj)-i»‘i 

La t^lc,jluiL VBE ^<a>>n V ti-a*]! 

.^(JlLoll Jjfu) i^^c. Now (J^ VBA 1 ^ ^ 7 »o''<all (Jlj.i]l ^ 1 ig‘i^l 

(j.ajja WorksheetFunction (j£aJI ^j^a d^osJI ^jj Jljji 

j^' SUM ctaaJ' ^JJ J'j'^ ^l.iaJLiil Jlla£ .cUaJl 4ijj ifiAppNcation Lh'^ 

.AliAlO (j' Li' ll (_Jj>-aL^ ^L^L ^j^ (j^lj 

total = Application.WorksheetFunction.Sum(Range("Al:A10")) 

^y^J^\ jk^l (> WorksheetFunction j' Application lA^I l>oj 

7-A ''' (J-o^ ^ jlldl (J.a^li ?• j"'*'^' (J^ L5^ (Jj‘ j_^LuiII 
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total = Application.WorksheetFunction.Sum(Range("Al:A10")) 
total = WorksheetFunction.Sum(Range("Al:A10")) 
total = Application.Sum(Range("Al:A10")) 

(jl WorksheetFunction JjjasVI Ujj 

4JL^I 

JajlSI ^jj JljJ ^l,lVu>it c>a»j 

jUaj ^ .iaJi 


Sub MinMaxO 

Dim TheMax As Double 
Dim TheMin As Double 
Dim Second_Large As Double 

TheMax = WorksheetFunction.Max(Range("Al:A10")) 

TheMin = WorksheetFunction.Min(Range("Al:A10")) 
Seconcl_Large = WorksheetFunction.Large(Range("Al:A10"), 2) 
MsgBox "Maximum number in the range is " & TheMax 
MsgBox "Minimum number in the range is " & TheMin 
MsgBox "second large number in the range is " & Second_Large 
End Sub 
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jiajudll ^jL ^ 

TheMax = WorksheetFunction.Max(Range("Al:A10")) 

^)iajudll 1 nj .ThBiVlaX A x>jq\l 

MsgBox "Minimum number in the range is " & TheMin 

^Ij ^j^j .TheMin j 

Second_Large j:^' ^ o^j^j 

Second_Large = WorksheetFunction.Large(Range("Al:A10"), 2) 

jI dAju^ lLi!^ Cj^ 

VLOOKUP ^l.iliu<l ^Jc> Jlia 

I _alib^l sSjf"^^ *_ sLlib^'^lj U JliLoIl 

j-all Jjtuill (jc. Cl±a-Jlj ^jSJ jsJ (j<aj InpUtBOX Cf' f^J 

.MsgBox j'j^ jjj VLOOKUP ^jj ^iiall 

Sub ShowPriceO 
Dim PartNo As Variant 
Dim price As Double 

PartNo = InputBoxC'Enter the part number to get its price") 
Sheets("Prices").Activate 

price = WorksheetFunction.VLookup(PartNo, Range("Al:B10"), 1, False) 
MsgBox price 
End Sub 
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^)lajudll (jC- CJ^ C_aix^l ^^ikioiAll \\ln^\ -]_ 

PartNo = InputBoxC'Enter the part number to get its price") 

(^^jj jIjljujVI cJj"^ (ji (3^ -2 

;^Ij1I jA\ jkxJl J!>Lk ^ (Prices ^jj 

Sheets("Prices").Activate 

c Vu^\I ^)xjuj VLOOKUP “3 

^)lajudll 1 djia^l 

price = WorksheetFunction. VLookup(PartNo, Range("Al:B10"), 2, False) 

. (j^ ^)3 Uji 1I jajSJ -4 
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(J- 
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VBA ^i^Sfl 2^ J-i*:ill .9 


I^LudSl aj^Ij VBA (^ ^lia^VI ^VBA (J-oljtilll aIc. AjuLuoII (3^ ^Ua^VI 

A.j1ixjJ^I f t -[]_ 

Syntax errors <^Ua^i -2 

AjSiaL<Jl f-t U-v^t _2 

Runtime time errors fUaiV) 

(JjL^ LoAIc. <.** vW*1 ^IAjI <.** vW* 1 ^Ua^Vl A-i1ixjujj 1I ^Ua^Vi 

^AaAjud^l (J’ cJ^ ^ t^l A,Aj^ 

^1 (JIa ^)x^aJC. L<i A-AaC- 0aIj^)AI (JjL^ ^1 jl tA-i^^ 

L-Alx^aAl ^jla^ V t ^ UJ Sh66t2 ^ A-AaC- 0aA^)AI 

CIjjA^ Aic. _^)ij^ L5^ A Auiq\l (JIa A»^^)juj A-AaC. ^1 jl Ai^j 

qC> t j\j3t An liak ]-nJ 9”1 (^ ,1 aJLuj^ ^)^JaJj qC> 0aA^)A 1 L-iSjJJ ^liaaVI 

A^AJudAI 0 aA^)AI aJ^L^^ 
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[J- 


Sub test () 

Dim i As Integer 
X = 1 / i 
MsgBox X 
End Sub 


Microsoft Visual Basic 




Run-time error 'll': 
Division by zero 


Continue 


End 


Debug 


Help 


Figure9-1 


JjS]l J^\ ^ Jll«S .giu^UJl ^j:]! JUjU 

Sub test() 

Dim i As Double 
i = InputBoxC'Enter a value") 
x = Sqr(i) 

MsgBox X 
End Sub 


ti'N. 4JLui^ giS ‘*' ^ i^jA (is! bj Lai 
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f ' V' 


dlljLl^ (3^^ ^.iLaC' «.l^_)^l »l ‘'-i."'. ..I Ua^l 

Sub test() 

Dim i As Double 
i = InputBoxC'Enter a value") 

If i < OThen 

MsgBox "You must enter a positive number." 

Exit Sub 
End If 
x = Sqr(i) 

MsgBox X 
End Sub 


Ijli Cy^ ‘ ^ (3^ 4_lLa£- If 4 X 0 ^ LLaA^JLuil IjiS 

l^jA (_3* ^ L)^_J tUai “AJLioj^ |f A\a‘^ (Jsi 4-a^ U^ 

■ Exit Sub 

tl)^ ^L)a.»^l (J-asdl AS^j Cjjl^ ^ 1 jLa J- ^'' (jl ?ljj^Jij| (Ja 

‘ ^ l^jA 4.^ljJal t ^ _ljJaji Ua^ ‘ *' ^ ^ 

4.xa3^ A^a^ 4j^Aa]| La^ (4A^.la]| dlljL^I 

,^dllJaja^..a]l (JlLa ^^1 _J‘ Range c3^~^ LS^ ^^ja 

Sub test() 

Dim i As Variant 


i = InputBoxC'Enter a value") 
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(J- 


If i < OThen 

MsgBox "You must enter a positive number." 
Exit Sub 
End If 

If TypeName(Selection) <> "Range" Then 
MsgBox "Select a cell for the result." 

Exit Sub 
End If 

If Not IsNumeric(i) Then 
MsgBox "You must enter a number." 

Exit Sub 
End If 
x = Sqr(i) 

MsgBox X 

ActiveCell.Value = x 
End Sub 


3 ^ 3 If TypeName(Selection) <> "Range" 

^ JUjVI Ji If Not IsNumeric(i) Then j t> 
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f ' V' 


AiLjal (JjiT-uU «.ljji <.5^^ f' li-i-VI V 

LiA_j JjjSxJ (J» •NJ A *\ (_j<a (jiaJill (_J-a^ (_j-a ^lAiiojl ^1 

_0n Error ^.UakVl ^ (J^aLstiiil (Jj.ui£VI 


On Error GoTo 

Cy^j ^'' f' l-»-N.*yi On Error ^ 

Ua^l ^ U' <0akj •^•1^ 

On Error ^^o7» ^al-ia-luilj Lajl ^_gjt^jj]l j-i^b ^j^LaJI j_^Luill (Jll<Jl SjUS U^i S^lilll ^ 

,A^liuuuj^l f' V' ‘ 


Sub test() 

Dim i As Double 
On Error GoTo bad_entry 
i = InputBoxC'Enter a value") 
x = Sqr(i) 

Msg Box X 
Exit Sub 
bad_entry: 

msg = "Bad entry. Please make sure that entry is number greater than 
zero," 

msg = msg & " you select a cell, and worksheet is not protected" 

Msg Box msg 
End Sub 
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cillj (jU 0-<ilj^)JI jL^V On Error ^^ Lsbol IIa^i^jLujI Uji Ua 

^1 A-iAJoull ^1 Ija bsd 6ntry! ^^^ajolIII ^I^i^iLujI ^ (JHaII _^jx>un\l 
<c.On Error ^ GoTo ^I^i^iLujI ^ ^ 




Exit Sub 


(jl ‘^4SjJjli<» bsd 6ntry cJ^ Exit Sub lLa.iaJLujl Uji Jlloll 1^ ^ <ji 

ljl tjjjl ^ Wa'II i-^U"'! .lie. 0<aLi^_)JI (_j<a cJ-astJ 1.^ 

Ua^l aJLuij (j)^ bsd 6ntry cJ^ (_j<a ~''J■ ^ «.lJa^l (_f] UJ"^ 

^_4JLiJI s^A f.\ )tnI AjI A^jJ V Ajl (_j-a ^_5Jc- h''u>i 

On Error Resume Next 


(_]Iaa]| _Ua^l igj ^ aLo^I Axj ^l^.a'iuiVI^ (Ua^l (_]aL^Ju aIo^I sAA 
On ^ (j '^j ^ (. 5 ^ A omsll AjLaC. «.l^)^l ^ X = 20 / i ) aIa^I 

jjbLi jA\ U^ .t^ » - u ull LLiJI jjgi oja JL=>. ^1 j^y\ ^Iaj ^ Error Resume Next 
(MsgBox "This is a test" ^-W) '-4 >a»j J^ij (j£j ^ Lgjl£ LLlLU A ju . i <> i l Ala^l 


Sub test() 

On Error Resume Next 
Dim i As Integer 
i = 0 


X = 20 / i 

MsgBox "This is a test" 
End Sub 
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Resume Label 


Aic. ^LjjJI ^ jl^>,aiujVl ^ ijAj Error condition LLiJI 5JLa. «.UJU ^jii 

4jljill (1^.1 <.5^ (Jll«£ _4ia^l Lsbel Aj-ajoull 

.(Resume Label j On Error GoTo ^ c^j^' jMW 


^1 j^VI ^Ig-i ^j .try_again j^' Label j»j ^1 j^V' S'^ 

^Ij If 4aJa^)jujll 4Xa^l LLa.iiJLuilj YeS, NO j'jj' ^ 

jiajudll j!>Lk ^ Y6S jj ;>>> JL^ ^ try again ^ 


If ans = vbYes Then Resume try_again 


Sub test() 

Dim i As Double 
try_again: 

On Error GoTo bad_entry 
i = InputBoxC'Enter a value") 
x = Sqr(i) 

MsgBox X 
Exit Sub 
bad_entry: 

msg = "Bad entry. Please make sure that entry is number greater than 
zero/' 


119 




(J- 


msg = msg & " you select a cell, and worksheet is not protected" 
ans = MsgBox(nnsg, vbYesNo + vbCritical) 

If ans = vbYes Then Resume try_again 
End Sub 


Resume 

(_ 5 jlij Error handling (jl£ lil La Jaaa sIa 

RsSUme ^ ^Ia^JLoiI Ua^l 4.^Lt^ 4^1 

^ L)l ‘ . '^L.J 4 j]L 1II I J L-i. \l 4 \/'-v \\ 

■ test A1 4 ^_gic. 4Jjxa ^jLaC, 

^ 'jLi ,Ti‘i 1 L»4 1 . a'u^^\l tOSt ^ 1'^) 

4a-ajaull diaj jij^l Error handler S'LL^Vl 4 -n\Uo «■ 4iLjal ^ 'L»4\l IIa 

.error_handler 

(_j<a test l}'^ 4^ljJal f' L-vVI 4 -v \1 ■» /> 

Worksheets.Add(after:=Worksheets(l)).Name = "test" 

' L-i. \l 4XaadI 6^ya R0SUme 'Cal^l 4^ljJ9l ^ ^ 


Sub test() 

Dim i As Integer 

i = InputBoxC'Please enter a value") 
On Error GoTo error handler 
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Sheets("test").Range("Al") = i * 150 
Exit Sub 
error_handler: 

Worksheets.Add(after:=Worksheets(l)).Nanne = "test" 
Resume 
End Sub 


Debugging Techniques 6^ 4J(j( 

^ lil ^ A\ (JSLuIaII ^ BUgS 

A-1aS^1 (JjSj (J) (JIa Ajilalo dulS) jjuj 

Ia ji djUiAC- ^jVn Ale- Uak (JjLujj 0aIj^)JI ^l£ lil jl 1 a^ 

[juJ - 0aI^)JI a A j .Bug Aj 0aIj^)JI I^A cJ^ 

Ia^ (3^ ^^jA Ldijjilli _LdljjA — Lli3jjujj^)SjL<i (JIa dlS^^A 1 ^ ^kTn 

L-sLuIiSV t^lA^AjujI (2)^^ L5^ AjIAS A1c> 

.Debugging 0^'j^' eJi^' 2:^' jaj cdlyJl 


fLkkVt (-iLuuSV Message Box jtj^t ^(Aia^t 

^1 Ia^ cJ^ ^^jAaII ^ ^1*1 A A^^ AjtjLudll f t 

_Ua^l ^aSa l-aIjujjSV dljtj^)A ^Ia^jjujI <SL^I ^Aa ^SaaII 

jjxIaII A^^^ ^^jia^)xAl (J^IAj AJA^.^ dljLJ^)A ^aJJ |Aa 

A l^WW L-flljujjSI ^Lujj ^ L<iA AxjIAa ^ajj j (JS Aic. 

. JLkil lAAk^ Iaj 

^IjALujIj A-AaC. A^li aJ (JaJ InJuiJ 0 aIj^ J — L5^ (JIAaS 

^ajj ]_ cJ^’ a duis lAi 6 3 j j ^a^AjoiaIi ^jjAa^ Aki 0 aIj^)Ai a^)S3 — 6^)SAI 
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(J- 




3 (J^ cJi 4jijl!La] 


Sub test 0 
Dim i As Double 

i = InputBoxC'Enter a value of i") 

MsgBox "Value of i in the beginning is:" & i 
a = InputBoxC'Enter a value of a") 

If a < 1 Then i = i * a 

MsgBox "Value of i after If statment is:" & i 
End Sub 




Sub test() 

Dim i As Double 

i = InputBoxC'Enter a value of i") 

msg = "Intial value of i is:" & i & vbNewLine 

a = InputBoxC'Enter a value of a") 

If a < 1 Then i = i * a 

msg = msg & "Value of i after If statment is:" & i & vbNewLine 
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MsgBox msg & "Value of a:" & a 
End Sub 


MicrGSGft Excel 

X 

Intial value of i is: 1 500 

Value of] after If statment is: 1 200 

Value of a: 0.8 





OK 



Figure9-2 


Jjjji] MsgBox jl^ vbNewLine <<aK]l lLa.iaJLujl Uji Ua 



2 Jli« 

(JS *_li-all 1_(_J-a3L31 (JH-all 

' (J-a3«Jl ^aJJ dll*J^)-a ^l.laJLujl LiA ^jS-a-a]l (j-a 
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[J- 


Sub test() 

Dim ws As Worksheet 
For Each ws In Worksheets 
ws.Activate 

MsgBox "Current sheet is:" & ws.Name 
ws.Range("l:l").lnterior.Color = vbRed 
Next ws 
End Sub 


n D " Booki - Excel Nedal M. Al-Shami S □ 


File Insert I Draw Page L | Formu Data Reviev View Devek Flelp Power Q Tell me f\. Share 



Figure9-3 
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fUalVl 5^ Debug.Print ^l±aa*-l 

(jl ‘“'j*^ ^^yel (Jj.1^ DsbUg.Print 

(iLj^l IjiA ^ijLkiail djjji lil Ia jlg-lil s-i^ ^1 Immediate Window t/jj^' juiull sjaU ^ 

■ Ctrl + G j' ^lAaJlujl (jA 

Jl^l dLaAiJLail jlC jLxjj-o ^jc. Jj^ Debug.Print ^ 

Jjillll ejaU ^ 1 U] 9~4(J^^^ 


Sub test() 

Dim i As Double 

i = InputBoxC'Enter a value of i") 

Debug.Print "Intial value of i is:" & i 
a = InputBoxC'Enter a value of a") 

If a < 1 Then i = i * a 

Debug.Print "Value of i after If statment is:" & i 
Debug.Print "Value of a:" & a 
End Sub 
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|(General) 


73 




Sub testO 

Dim i As Double 

i = InputBox("Enter a value of 
Debug.Print "Intial value of i 
a = InputBox("Enter a value of 
If a < 1 Then i = i * a 
Debug.Print "Value of 
Debug.Print "Value of a 
End Sub 


i") 
is: 
a") 


& 1 


i after If statment is: 
" & a 


& 1 






Intial value of i is: 2500 

Value of i after If statment is: 1750 

Value of a: 0.7 


Figure9-4 


VBA Debugger 

<_^ L-sLujj^l dill ^^ 

(j-<i L-flUiuSI ^ 6jS .VBA Debugger 

.Ic-ld dlj^Vl L_fl jxji IJlj .(Debug.Print 

Breakpoints Llij 

<.^ ^ CJ^J 6AJallj Aic> dlijU L-fidjUll l^lVi 

Breekpoint l^dc. _^Ua^Vt Vwj 

lIiUIac. ^JL^I dAA ^ (jj^ UiAk:. j .Breek ^ 

(ll^V ^jjAaj.All Ia^ AiiH]| 6^lj VBA 

dsjlll aSL^ P8 jj -laxjJall ^)]ajuaJ t^)iajuj ."ijVnj jl^)djujVl 

(JS ciil 
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^jLoll ^)juj^AJ Aju^yjij dlljjilLill AA^^xji^ 

^ jjxIaII ^jia^)C. ^aJ^ 

.didll ^ jl^)dLujVl ^ j j^l j 

(cdidiij ^ubu 

LiSjdt LUj ^1 jJt 

IAJIHII (J^)iall Qj(i ^1 ^l^lkUjuolj L-iSjUll Jallj 

^ iddc- L_a3jjll AJad ^l^^l d^ ^>iajuall ^jjJjL<ill O^ 

Breakpoint Toggle j^' 

^)iajuall Aj^Lo^I 4 ^)juojVI (jJ0jL<ill 

_6Ak:. L_flSjUll <iaij ^lj-^1 d^ 

_P9 Jaidall ^ ^)iajuall ^jjjjLdl ^)juj^^ ^jJaj (J^ld 

<Jaaj ^jJajJj 4^)A^V1 ^)iajuall dc- L-iSjJ <Jaaj dc- 

/, ^^jajudll (JjtLft ^^jjdl^l 


Figure9-5 


(General) 

Sub test ( ) 

Dim i As Double, a As Double 
1 = InputBox("Enter a value of 1") 


a = InputBox("Enter a value of a") 


If a < 1 Then 1 = 1 a 
MsgBox "Value of 1 is: " & 1 
End Sub 


_^)iajudll jl-JujJ A )^Vi\l ^)jujjV1 (JjojL<J 1 ^)dl 6L_i3jJ <iad 
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^^)iajuall L_fl5jJJ 0-<ilj^)Jl ,^jVn 4L_fl5jJ <iakj 

.s^Ull ^1 ^ Break 



Figure9-6 


1 ^ A\^ jl^JaV dll JJxIaII (jj3 ^jUJl 

^UjJi ^ jljdd^:>U Continue (F5) jj J^idal J - 

,P 3 (, 5 -^ Jaxdal ^)JajudJ l^)Jajuj 

Jaxdall ^l^x> Uj>iIj^ ^^juojVI ^^Jjo^I-^I ^3 ^ ^i^juoll ^jl 3^^ 7^ " 

_6dc. ^l^)dljujVI ^3^ (jl£^<iil ^a-^-JuJl 


3^ A\Ay\\ d3b LdiSj 


4L_a3jJ A In^*! Stop A x>KII ^l^lkiuol ^jSaaII qj^ 

3^)dL^ ddc- L-iS^il d3^ ^)iajuall 


Immediate Window lsjj^^ 

6^lc- S^Lill )a*i _'^LaJU^all VBA (3^ L^’ ^liidH 6^1 j 33ld. Qjii 

.Ctrl + G ^1 , ^l-i.*yI i&^L^Jal e^y^Oa S.'''^' ill eJA U^ ^ (_]sxul 
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ci^ Print jjiull diaU ^ 

j]aj| .( ? i ^Jaljuofj j)^ Print i i ^^jxl Jl^l J:^ .(Print Cy^ 

9-7cMI 



Watch Window SjflU 

ftiaU ^l^iklLuol ^500 i cJj X ^ 5i^)x>i l^i 

■Add Watch j^' fj Debug c^) t> j-^t 

Sub test() 

Dim i As Double 
For i = 1 To 1000 
x = i + (i-l)''2 
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(J- 


Next i 
MsgBox X 
End Sub 

.9~8 (J^ ‘‘‘''' djilj AiljJaj^ ^ -i. \l 

s^jJlj Procedure u-® ujjiiaAll ^ ‘Expression 

■ Module 

\c^\ jl^ dji% (illiA Watch Type M'j^' (_>aliJl f.j^\ ^ 

^ jJI jj^l A.^ J3U ^jsj jl^l ljiA :Watch Expression -1 

Breakpoint jj ^-2=^ c^j Jj^' Expression 
i_ilijVI jjL ^ jxUjJI JUk^b jl^l I^A :Break when value is True -2 
fja j>a=^ ^ (> Expression ^ Jajbll jisJ .ii& Breakpoint 

jUll <ilj^l J!lk (> jl Immediate Window s^b J!lk (> cjI jjiiJl 

_i_jj\li.n\l jjilall (jjS 

jjL ^bjJl JU.jb ^jL jl^l bA :Break When Value Changes -3 
Expression ^bi. ^ j^\ .iki Breakpoint 

<Laj^ j .ijc- ^■ab^^l i_^bjb A-uiLui bl bj Q-g 

^■■ab^^l^ sjsb (_]^juj 9~9 i_]^ ‘ ‘500 

■ Expression ^bk 
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Edit Watch 

Expression; 


-Context- 

Procedure; 

Module; 

Project; 



I Module2 
VBAProject 


-Watch Type- 

C Watch Expression 

(• Break When Value Is True 
r Break When Value Changes 


Figure9-8 


X 




^ Microsoft Visual Basic for Applications - Booki [break] - [ModuleZ (Code)] 

4 File Edit View insert Format Debug Run lools Add-Ins Window Help 

H H - y Ci aft I -7 P- ^ J ii' 3 ' w Q 

Project - VBAProject 

B _I 

B ^ VBAProject (Booki) 


B Microsoft Excel Objects 

g] Sheetl (Sheetl) 
Q ThisWorkbook 
B Modules 

Modulel 

ModuleZ 


|(General) 


ji. 


S a >4 A.> w 


^ 


HF 


Sub testO 

Dim i As Double 

For i = 1 To 1000 

E 

Next i 
MsgBox X 


- i + (i - 1) 


Properties - ModuleZ 


ModuleZ Module 


Alphabetic | Categorized | 


(Name) ModuleZ 



Immediate 


LiJJ 


Watches 


Expression 


[Type 


1] 


S 


X 


Figure9-9 
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Locals Window 

Aic- <3 l 91^I Clj|^)jiLlAll LOCSlS 

^ Vi6W cjlAill j!>Lk ^ diaUll ^ .Br6akpoint <— 

.Locals Window 


Sub testO - 

Dim i As Double 

i = InputBox ("Enter a val |vBAProject.Moduiei.test 

_ a = InputBox( "Enter 

a < 1 Thenl 

MsgBox "Value of i is 
End Sub 


11 Expression 


I Value 


2500 

•■ 0 . 8 " 


I Type 


Double 

Variant/String 


Figure9-10 




(JIL jl^i .Lijb ^ Option Explicit ^j^kiuoj ji JjU^ -1 

AjIj£ 1 ^ A^LcU^I 

djia .ixj aJ ^^cil^Lujj djlajLcill ^j ^djlajLcill -2 

^ ^ * ^LuoJj A»jIjS 

jJI aIa^I .On Error Resunne ^ 1 -3 

Ld^ ^Ij A 6^ ^l^lklLuol _1 ]^\\\ A In^^Ldl A.j^^ lia^l 

^ ^ A^^txJl ebb M ^ -4 

(9”H dbLa^ dlAJ C 
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Sub test () 

Dim i As Double 

For i = 1 To 1000 
] I x = i+ (i-l)'^2 

Next i 
MsgBox X 
End Sub 


Figure9-ll 
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(J- 
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j^uii 

Events .10 


^uauud^ jA 




W c Qu^x> 


C qUi.ox>\l 

(JaC. ^JJ j) ^ lj.l - 

(JaC- L5^ 

(JaC- <C.Llia 

(JJXA <•—l3j 




lia^ 


Clj 


l^AA dJjliluoVl J J;lJa£VI ^ lx.J^VI EV6ntS L-flJxlj L_fl jxji ^ 

J^i C^IUa ^^ialU J^Vl lLiI^VU ^Ajli (j^Ull (jJJ-l^l ^ .Clll^l^)^VI \^Q*^**^ ^ 

1 ^^1 ^11 S^LoiAll ^iJaj n ^1 <1 aI£JI <ajI^I Ai^)XA CluS lit 4 ^)Jj£j 

^dijjjjVI d^LoiAll jl VBE 
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(J- 



djJ^f 

<_^ ^^**^*^**^ a1c> 

Activate 

L Aic. 

BeforeClose 

<_ a^LlIs Aic> 

BeforePrint 

c qui.ox>\l Jai^ a1c> 

BeforeSave 


Deactivate 


NewSheet 

L Vu^^ll aAc. 

Open 

<_^ ^^**^*^**^ a1c> 

SheetActivate 

^ lj!>Lk]| (_^^l 1 jij 

(JaxJI 

SheetBeforeDoubleClick 

lj!>Lk]| QA^\ 

SheetBeforeRightClick 


SheetChange 

(jljjl )njui nil ^UlSI Aic. 

SheetDeactivate 


SheetSelectionChange 




J-oc- ^jj ^^^**^*^**^ Ak:. 

Activate 

Aijj ^ jSill aAc. 

BeforeDoubleClick 

Aijj ^ 

BeforeRightClick 


Change 

(JC. JaJjulilll AAc- 

Deactivate 

^Aaall 

SelectionChange 
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Event-Handler ja U 

(JjSj SjjIx. .Ev6nt-Handl6r <^-^1 (Jxi :ij£ ^ ^j£]| 

■ Function u^j Sub-Procedure ^js j=>-j t> sjbc 

djIjiaiJI 2^1 Event-Handler 

Aic. Jj£JI iiiiS ^ (j) 

WjSjI j c-luoLLiII 0bj6Ct VBE j^Vl 

1 jSj jijl c Vu^ x >\ Ij 5u^UJI .Microsoft Excel Objects 

Ijij ji^ta (jijjLj a-ijouIIj Loi ThisWorkbook ^ 

Sheetl cJ^) ajj\)^x>\I Ai^j ls ^ 

(jllAjli Ua j j£JI diaU ^ _L^^^ILxaII l_uSI Aj^Lkll ^j£Jl SiaU ^ 

Object drop-down list o 

Procedure drop-down list o 

(ija 'j^ j^' ‘ ThisWorkbook >^>^*11 Event-Handler '^j - 

Object 3^la]l ijA Workbook -^j^' s^'-i t> (>j ‘ThisWorkbook 

■drop-down list 

(jjs U.jj> 1jii jiil ‘Sheet cW^ Event-Handler ajjj '^j - 

Object 5J.ijailall (j^a Worksheet J^l SiaU ^ ^jlla^all (J^aaJI 5ijj 

drop-down list 

10-1 J^' ■Procedure drop-down list (> - 

4^1JLall Clj|.l^VI 

Event- ^"^^1 <^L*-a VBE ^ <^11]! ^j^a uij.iaJl jUikl .ijc. 

.(■jjikall djiaJl Handler procedure 

,<ajLuJI ^ ^ (.5^1 i.Li.laJI ^C^Lat^a 

^ U-vM A 

-i' j=>-j u' j% (j^ Object drop-list 5J.iaiiall Workbook j4^' ^ 

bl IjiAj Workbook_Open ^ Open Event-Handler 
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CJjUxaII ^j£j ^ lil Loi ^l^lkiuol ^Jj bui duS 


^\ju^ ^1 j^j jU Object t> Worksheet 'j' JUUj .Workbook_Open 
^ Worksheet_SelectionChange uj^ j^'^' 


Microsoft Visual Basic for Applications - Booki - [Sheetl [Code]] 

File Edit View insert Format Debug Run loots Add-Ins Window Help 

I n - id . ^ i ^ lid j is< iir . e 

i<J 


Project - VBAProJect 

^ la g 


0 


_ VBAProject Cl?-ilFeb2 
□ ^ VBAProject [Dookl} 

S Microsoft Excel Objects 
■J] Sheetl (Sheetl) 
ThisWorkbook 

0 VBAProject [Kutoolsforl 


Properties - Sheetl 


i<j 


Sheetl Worksheet 


Alphabetic Categorized 


(Name) Sheetl 

DisplayPageBre; False 
DisplayRightToL False 
EnableAutoFilte False 
EnableCalculaticTrue 
EnableFormatCcTrue 
EnableOutiining False 
EnablePivotTabI False 


Private Sub Worksheet Selec 


/,Tiri Sinb 


Object drop-down list 


^|:= < 
Immediate 


Activate 

BeforeDelete 

BeforeOeubteClick 




^ B ^ A* iW 




□ 


, 


X 

15 X 


SelectionChange 


Procedure drop-down list 


Ch. 

Cte 
Fol 
Lei 

Pivotra ble B e fD reAllo cateCti a n g es 
PivotTa bleBefo reCo mmitCha n g es 
PivotTa bleBefo reDisca rdCha n ges 
PivotTa bleCha n geSyn c 
PivotTableUpdate 
SelectionChange 
TableUpdate 




x| 


FigurelO-1 


r 


^ I jli 


Event-Handler u' 

1. i ^ A.\l ojsLj 
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VBA (Ll.^Vl ^hVu<it AJlal 

4.aLt!La dulSi f.1 jjoi .tLllA^Vl C>* \'^'‘' 4JLaji j_5ic- 4Jl<iVl (j-a ^ J-a^-a 

Workbook Events J>s. ^JL»i 

Open Workbook 

Ak. ^jj (JS ^j^AS ^JLujj (jkjxj ^jL Ev6nt-Handl6r Jl^l ^ 

(AjIIa^ lLjA^I 5^lj£j _JAi^l (J^Iju^VI L_aLi 

ThisWorkbook (jjs VIjii jiil -1 

QUi.OX>\Ij <J^lk]| b^U 

j Object drop-down list t> Workbook j^' ‘-^j^' t> -2 

■ Procedure drop-down list 5^lall Workbook_Open 

.Workbook_Open -^j^' -3 


Private Sub Workbook_Open() 

If Weekday(Now) = 3 Then 

MsgBox "Today is Tuseday, Don't forget to submit sales report" 
End If 
End Sub 


10-2 LaS J g ^ 
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^ Microsoft Visual Basic for Applications - OpenWorkbook Eventxlsm - [ThisWorkbook (Code)] 

- 

□ X 

[j^ £ile Edit View insert Format Debug Run Tools Add-Ins Window Help 

® H - d ► JJ J S' tar O 


_ i9 X 

' y 

Project - VBAProject | 

jWorkbook 



a a@ 


Private Sub Workbook Open() 

' ' 

~ 

B VBAProject (OpenWorkboo 

S ^ Microsoft Excel Objects 

- HI 


If Weekday(Now) = 3 Then 

MsgBox "Today is Tuseday, 
End If 

Don't forget to submit sales 

reporl 

< > 


End Sub 



Properties - ThisWorkbook x| 


I'd 1 


►r 

ThkWorklMiok Workbook 


Alphabetic | Categorized | 

Immediate 


X 

(Name) ThisWorkbook a 

7 

application . UserName 



AccuracyVersion 0 




AutoSaveOn False 

Winaows User 



AutoUpdateFreqtO 

7 

application . Name 



ChangeHistoryDu 0 




ChartDataPointTrTrue 

Microsoft Excel 



CheckCompatibili False 





ConflictResolutior 1 - xlUserResoli 





Datel904 False 




d 

DisplayDrawingO -4104 - xlDispla 


1 


2r 


FigurelO-2 


Before Close 


^ _Q*udul^ 1^1 <_Q*u^z\\i 

^^^JlSj AjI (jj^ c QUi.ox>\l j <>**vwll 4C qui.ox>\l ^ ^ 

C-J^ JJ (Ja ^ ^ clj!^.bu c^IUa yU ^Lujj ^jL (^*^1J (Jiljuj^!^ jjSVI ^ jLA\ 

(?v i^u 


J Object t> Workbook j^' s^l-i t> fj ThisWorkbook (jjs U.Ijii jiil 
Workbook_BeforeClose Mj .Procedure s^'-i t> Workbook_BeforeClose 

:^iili 4iiSi 


Private Sub Workbook_BeforeClose(Cancel As Boolean) 

If ThisWorkbook.Saved = False Then ThisWorkbook.Save 
End Sub 
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-j ThisWorkbOOk IjU^ali.! Jliill J£jilb |f 4Xa^ uj£j (JI (jx 

:Me 


If Me.Saved = False Then Me.Save 


Activate ^ 

I_«'■ sjiLj .<_a*' - ^/.\i l.'j.^'''' .ijc. Activate cLi.i^I 

^ 1 -'1 a*', L5^ cWtJ |j| JjLa ,i au 'dLui^ 

.UaiJI t a‘u^/'\l tijic’ (jl ‘- '^' •^''' Cllj£j 

Private Sub Workbook_Activate() 

ActiveWindow.WindowState = xlMaximized 


MsgBox Me.Name 
End Sub 


Deactivate 


(JliLa 4jlj]| uij.iaJl s.y\i^ 1 . a‘u^/'\i jjc. JajAiill s.Li]| .lie. Deactivate 

j ^JasLaJl ^ <*jjajj jAa-all jjUaill .Deactivate ^h-sunl 

^ ^cjuili (ji '_a'u t^.l] (jl^ 1^1 JjLa ,<_au JaJji^jllll «.ljtJI Aic- 

(illi ‘“ ‘ a*', <d^l.lj (J.axJI CjlsUai]! 

I_S.1^1 <_a'u ^ t.»aa ^Uai]l ^ COPY ^ (jUalll Jj.1^ 

.;3‘ A^lLaC 


Private Sub Workbook_Deactivate() 
ThisWorkbook.Windows(l).RangeSelection.Copy 
End Sub 
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New Sheet ^ 

(jUajll (_j-ajJa Sheetl (J-oJtll 

.Sjj^ ^jj (^i ^1 Al:ll 

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
Sheets("sheetl").Range("Al:ll").Copy 
Sh.Paste 
End Sub 


Before Save ^ 

^JJ L>* A1 1. 'au^.n\l ^ ^jIjj dlSj (JjauaiL ^ jii 

■Sheetl cWd' 


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, 
Cancel As Boolean) 

Worksheets("Sheetl").Range("Al") = Format(Now, _ 
"dd-mm-yyyy hh:mnn:ss") 

End Sub 


142 






Worksheets Events J'jj' aJIaV) 

Activate 


^^ (JliLttS Aic- 

.(J-aaJl 5Jjj i-»j'^'''‘' ^ (J£ ^ sJAa-all (J-aaJI 

^(J-a*JI ''-Sjj Cljl.l^i ^ (J-aLsiJj i_^\ ji^ 4 jIj^ 


I a.^1^1..1 /^ L5^ 1^)^ ^}ij| -“]_ 

j Object drop-down list ^lill (> Worksheet j^' -^j^' e^'-i (> -2 

.Procedure drop-down list (> Worksheet_Activate 

_(_5ijajVtj LaS “3 


Private Sub Worksheet_Activate() 
Range("Al").Activate 
End Sub 


Deactivate 

a_' ,(3'axJI (JjC- JaJjullill ^litJI Alc- dlA^I |_] ‘ J 

Ua^ 4JLuj^ dul^ |j^ ^Sheetl (^JC- Jaajulli]| ^litJI .^jc- A1 

4^0^ lI'AC 4.3^^ (jLsjjVi i_yi 4jlaJI 4 ^AaJLoLa]! 

■Sheetl ^jj^' iJ A1 


Private Sub Worksheet_Deactivate() 

If Len(Me.Range("Al").Value) = 0 Then 
MsgBox "Reminder!! Please enter a value in A1" 
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(J- 


Sheets("sheetl").Activate 
End If 
End Sub 


Select Change 

^jii tliAaJl I^A JliLa£ .Saw oil ajc. Select Change 

<Cul^)^VI Aj&jj ^ 7 -j"'*' 6«.l^ 4_lloC' (Jj^ ‘ ‘'Sl <> <> II I Li^ (jLbu'^lj 

.10-3 J^l 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

Cells.Interior.ColorIndex = xINone 
With ActiveCell 

.EntireRow.Interior.Color = RGB(248, 203,173) 

.EntireColumn.Interior.Color = RGB(180,198, 231) 

End With 
End Sub 

I"II (_5^Li (jc- ^1 jl-J 

Cells.Interior.ColorIndex = xINone 

:Command Block j^'jVI J!>U. ^jo a^LlII jjo&j 
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With ActiveCell 

.EntireRow.Interior.Color = RGB(248, 203,173) 
.EntireColumn.Interior.Color = RGB(180, 198, 231) 
End With 
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FigurelO-3 
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Worksheet Calculate 

ujLuiii.'il jl£i iljjuj Worksheet Calulate ^jj^ ujLuiia.1 Ajc- Cll.1^1 (J‘ 

ujLuil^l SjIc-I ^ bjM (_]£ ijk A;F jl^l (J^ ^ (JiujVtj ^ j' 

Private Sub Worksheet_Calculate() 

Columns("A:F").AutoFit 
End Sub 


Worksheet Change 

^jiS (JHaS ^jj ^ 

^ ciilij B ^(J^ J J 

(C ^ ^ ^1) 


Private Sub Worksheet_Change(ByVal Target As Range) 

If Target.Column <> 2 Then Exit Sub 

Target.Offset(0, Ij.Value = Format(Now, "MM / DD / YYYY hh:mm") 
End Sub 


J!5U. J^fr J j$l\ JllUVl 

^)Sjl ^VBE L)^a) cJj >>’SVI A 'n »xi d-ac. (J£jjjj 

10-4 d^^' b>£ View Code j^' ^ d^' ^jj (jj^ ,_>ujUJI 
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(_j-ajJa dlLil^l <.5^^ IVIS§BOX (J^ 4.alii^ >>1 (_Jj>-aall l^A 

djUl^l (J^-^V (^' InputBox ^'-^j 

^1 j Application.InputBox .J 5 ?>a t> 

MsgBox 

jl ^^I^HjoiaU dlLo^^ix^i MSgBOX 

^IxJl ^1 ■-(J’ cJ^ ^ 

: Jlill cMl ^1^1 .iA 


MsgBox(pronnpt[, buttons][, title]) 


:u’ 


j^j Ls^ Ji L_fljjuj (^*^1 ^JLuj^l (j^ (jc. 6jl-^ !Prompt 

^iljJaVl-J lAjl^JaU L-l^jJ jljjVi ^jJajJ iButtOHS 

ji jJ'WllI l1^) 
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^)juaC. 


.jljaJl jljjc. :Title - 



Figurell-l 


O^J®’ 

SjLaJLu'il (jJ^ J^ (jl .dStS (_ff-'a-m-<^l dlUl^l ^X-LlaJ QK jj 


Sub test() 

MsgBox "Press OK to print data..." 
RangeC'data").Printout 
End Sub 
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Figurell-2 

Microsoft Excel X 


Press OK to print data... 








OK 



jtL>^ 

0><ilj^)Jl jljud^ ^1 OK JJ o^ ^ LS^ cJ^ 

Cancel j OK 4^l!i]| _4jaijJaj p.’i-s ."',.'^\1 ^ta 

4j\<aa»\l <iljtJI CSDCel <. 5 ^ Jaij>iall ^ lij Laj ellUl^l 4£.L^ ^ QK (. 5 ^ )-i» t>ill ^ ljl ; 

_«.UtJVl-J 'ULujj (_y<a^)C. ^JJ_5 


Sub test_msgbox() 

Dim Ans As Integer 

Ans = MsgBox ("Do you want to print data", vbYesNo) 
Select Case Ans 
Case vbYes 

Sheets("sheetl").Range("data"). Printout 
Case vbNo 

MsgBox "Printing canceled" 

End Select 
End Sub 
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^)juaC. 


^ ^illj MsgBox (JaIjlaII LiA^ikiujI (JHaII Lljl Ja^V 

(»j .(No j Yes ijjj '•^ (^) j'j^' ‘t^j^ j'jj'^' 

,4_llc. JaiuJa]! ^JJ (_CS^ ''J°''''^ Select ^ tLa.laJLujl 

l^A pl’iA,"'..'! (_J^ ■^' LT^ Jaij.iall (jj^^aJil (AHS) J:J*^ LLa.liJLjil Uji Ua iaa.Vj 

Jlxa]! 1 ^ La£ AnS ^l.^aJLuil ^j£..a^l .SeleCt 

Sub test_nnsgbox() 

If MsgBox("Do you want to print data", vbYesNo)= vbYes Then 
...[code if Yes is clicked]... 

Else 

...[code if Yes is not clicked]... 

End If 
End Sub 


Figurell-3 


Microsoft Excel 


Do you want to print data 


■V 


Ves 


No 


Msg Box L— 

.Jj. 1^1 ^ LaS ^l£Jl jll 4.a^l ji vbOKCancel ^-aKll ^l.ikiail .(Buttons) 
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ckUllI 


Jsij IjL^ 

A A AW 

4^1 

Ja^ OK jj L>^ JC- 

0 

vbOKOnly 

CanclejOK 

1 

vbOKCancel 

Abort, Retry, and j'jj'^' t>j^ 



Ignore 

2 

vbAbortRetryIgnore 

Yes, NO, and j'jjVi t>jt 



Cancle 

3 

vbYesNoCancel 

NO ‘Yes i^jj 

4 

vbYesNo 

Retry, Cancle 

5 

vbRetryCancel 

Critical 

16 

vbCritical 

Ouery ^jaji j& 

32 

vbOuestion 

Warning ^ j %' 

48 

vbExclamation 

Information oUjkJi 

64 

vbinformation 

jjll jA JjVl jjll 

0 

vbDefaultButtonI 

jjll jA jjll 

256 

vbDefaultButton2 


512 

vbDefaultButton3 

jjll jA 2^1 jll jjll 

768 

vbDefaultButton4 


OK, CshcbI U’ (J-^Lx-aU ^I^i^^IjujV 


:+ SjLil t^ljlaj Information 


vbYesNO + Information 


4X0^1 ^ |jj j^LuJI 

Ans = MsgBox("Do you want to print data", vbYesNo) 

Ans = MsgBox("Do you want to print data", vbYesNo + vbinformation) 




o' ‘ dlLa^^lx^l 4^^l£. Ja^V , H-4 l)^ ‘ 
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^)juaC. 



InputBox ^ja 

u^*-A (JljsiuiV '‘'-i.i..ii InputBox 

^UJi JSJJI 


lnputBox(pronnpt[, title][, default]) 


■u' 


djL^jj ijj^ l-o .j'j^' Ls^ <_a_^ ^^\ ^JLoijll ^ :Prompt - 

.^jl^l 4^ ^j .jlj^l (j'j^ iTitle 
.^jLiikl 4.^ j^Vl !Default 


InputBox 

^ajbulj 4X(L^ ^ ^aJbuVI lOpUtBOX 4^lll]l 4^1^^^) ^.l^jLuJJ 

■ MSgBOX (>> 


Sub test() 

Dim name As String 
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name = lnputBox("Please enter your name...", "Name") 
MsgBox "Helo " & name 
End Sub 


jghjui .lie- .ajs name String ^ 

11-5 LaS JUkJiVI U1 



Figurell-5 

3JLu)j]l (j^ajju ^ u!^ Mohammed Uli.jl Ijj 


Figurell-6 


Microsoft Ef^el X 


Helo Mohammed 


OK 
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^)juaC. 


Application.InputBox method 

4JUI InputBox cr^ Method Application object 

VI InputBox (InputBox 

^5) IVl0thocl ajI 

,l1iIjI^I M6thod s^li (ji V) 

;^Ij] 1 ^L*JI (JSJdll Method -^1 

Application. InputBox (_Prompt_, _Title_, _Default_, 
_Lef t_, _Top_, _HelpFile_, _HelpContextID_, _Type_) 





(IjLjII /LjjilaA 

^Vl 

jljaJ) ^jA JiC- 


Prompt 

jljaJi ^jA 


Title 

^1 jilaVI ^u^l 

<J 

Default 

Jj^Vt 4a^uu]lj jt J^\ ^JA ^JA 


Left 

Jj^VI 4axju]lj jt ^ 


Top 

dJC'LuaA]) im^lA 


HelpFile 

,4J 4a«uu]lj Sj^Lul^ Jjjj 


HeIpContextID 

bj^># jUlil lift (JSj ^ |j| .iHlAAil i:jULJl 

Text (j^ jA ^^ijjflVi 


Type 
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c>li:ill 


A^jsu 

•• 

A A AW 

Formula 

0 

(^J 

1 

CK»j 

2 

T rue or False ^ 

4 

(Range object ^j.- 

8 

(N/A# (Ji.) ^ 
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Check Box j^Vt 




y^j On/Off J True/False 4^^ uj^ uj^ 

; jUikVi ^1 Ui^ 

<Jijxji jjll jUi^l ^ .jL^VI ^jj ^4^ iControlSource 

.False cjj^ ^^ j True ^4^^ ^^4 cjj^ 

uj>i jL^VI -lie.j True ^^<41 A-L^Lk]! uj^i jjll jUl^l -lic. ;Value 

.False 


4 A-C-Llialt jj A-aLjal ^ 12-18 <4 ^ 

_A-c.Lilall Aic- Gridlines A£jjudll u^ <>**(JHaII 


Print Form 


— Layout- 

(* iPortraiti 


^ Landscape 


\~ Print Gridlines 


Cancel 


Figurel2-18 

jlj -V (_^LuiJI (JlLall cLLaAaJLujl (^■^1 ^ jj-oiU ^ f '^' (jj ’'''■ ^ ^1 jjjj ^ jjAill I^A (J-aad 

!(^Lill£ jUik'^l (_3j.iLk^ (_5j.i3tij ^ ^ ^jljli.Vl 
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(J- 


- Name :chkGrid 

- Caption :Print Gridlines 

^ ‘(3ful La£ ^ . ^*'1 . ^LiLkVI ;_3j ’''' ^ U' 

A^Lsua ajI^ If 'U.o^ Cy^j ajIc. (jc- Print 

• 12~19 l 1^“'ii ^)ALia _jA LaS (."vwll 

If chkGrid.Value = True Then 

ActiveSheet.PageSetup.PrintGridlines = True 
Else 

ActiveSheet.PageSetup.PrintGridlines = False 
End If 


iajj Cuis ljU True chkGrid 3_a^ CulS ljl La ^Xa^l ei* ^jii 

:jLi]i j^\ 


ActiveSheet.PageSetup.PrintGridlines = True 


I ^L», ii\l ^Ja'^'^ ^ r-,1 'l-i\l uTi\l Lt^Li'v 


ActiveSheet.PageSetup.PrintGridlines = False 


^ ^- 1 \ T-^^i I ^ ^jLllL ^ 
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Private Sub cradPrint_Click() 

^ Unload Mq _ 

^ If chkGrid Then ^ 

ActiveSheet.PageSetup.PrintGridlines = True 

Else 

ActiveSheet.PageSetup.PrintGridlines = False 

V End If ___ ) 

If optPortrait = True Then 
With ActiveSheet 

.PageSetup.Orientation = xlPortrait 
.PrintPreview 
End With 

Elself optLandscape = True Then 
With ActiveSheet 

.PageSetup.Orientation = xlPortrait 
.PrintPreview 
End With 

Else 

MsgBox "Please choose Portrait or Landscape" 
frraPrint.Show 
End If 

End Sub 

I 


Figurel2-19 


List Box 

~‘'-n.Il.i/'W ^La.uill ^'' i^jA ^ListBox Li] 

_ V' ahM Ja^ ^ a\l ,1^1^ 
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Print Form X 

Select a Sheet to print 


1 Sh^i 

: ^ 

Sheet! 

■-: 

Sheet! 


Sheet4 

i 

Sh^S 

-d 


Print seected sheet 


Figurel2-20 


List Box 

^jj A-ij^Lk]| ^ iControlSourcG 

'^.W^ ry\\ 4 ^JJ 

^ajj :ListStyle - 

y ^\ jL^VU ^^ Ja ^ Ua ^ iMultiSelect 

^^jj A-ij^Lk]| (j-o iRowSOUrCG 

iVgIug 

^ ^ (MultiSGiGCt i}y^ jL^VI ^ lit 

V JlilUj ^ j^i 4-NjVi ^1 ControlSourcG ^JL^I 
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^j5J AjIjS (^j .6^lj Aalk 

_L<i (jliaJ 


Populating List ^a*j 

Additem c> Hj RowSource aoj^UJI (jx Lai 4L^ (j^jL i^Ija 
f.j^ ^yi ^ 4jjiiai ^lill ‘RowSource a^UJI J!>Lk ^lill .method 
RowSource ^aiall j>.,olic. ^^Ic. (_^ill (jUai (3i..ii L^ (_).iaLk]| (jau^aai 

.12-21 



Figurel2-21 
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jj^LiJl uLl-laJI ~lA-^'i..'l (j^-aJ 4jLaJI sIa ^ j ■<'j' <<iijl^l 4A^ ^ (jU L^ (_^ jj ja 

■Addltem method .^Ull UserForm Initialize event 

^ajj ^jl ^LluJl (j-a »La.uilj ^LajH]! ^ jj' LS^ (JliaS 

^Ij^l ^ jmi JJ^l (j£^l cUd .cUd' ^JJ dlls JjJpJ 

:UserForm Initialize event-handler procedure j^' «-A“ ^ddl di^l 

Private Sub UserForm_lnitialize() 

With ListBoxl 

.RowSource ="" 

.Addltem "January" 

.Addltem "Febreuary" 

.Addltem "March" 

End With 

End Sub 



Figure 12-22 
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^ (JJ^ ^J^l .R0WS0UrC6 = "" ^)]ajudll LLoJ^kluol UjI ia^V 

cJJ^ ^ ASjLuj (y\ 

^juiii ^ List Box 

List Box ^ (_L<iaJI (jljji (_>^jaj 12-23 ^jL 

■ Print selected sheet jj c?^ Jasujall ^ ^jj]l .ij.iaJ ^ ^jj (^1 ciiUjia^ 3x.Uia]j 

Figurel2-23 


Print Form 1^ X 


Select a Sheet to print 


Sheetl 

i ^ 

Sheet2 


Sheet3 


Sheet4 


Sheets 

jJ 


Print selected sheet 


dilj^Vl ^ ListBOX ^^1-3 (S^ 

^j£JI (JLk^l yjii ^LaJI c Vui.ox>\\ ^L<uujIj ^ \x \ ^ ^(ListBoxl 

<j^Lk]| cLj^laJl ^ 


Private Sub UserForm_lnitialize() 

Dim oSheet As Worksheet 

For Each oSheet In ActiveWorkbook.Worksheets 
ListBoxl.AddItem oSheet.Name 
Next oSheet 
ListBoxl.ListIndex = 0 
End Sub 
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(J- 

: j>JI 1^ cWj 

Worksheet (> oSheet -1 

^ I a'u^/%\i (J-ojtll (jljji jl^)Siiil For....Next <1 a^ ^Ia^jIujI ^ -2 

4Xa^l (_5^Li (^j.a a\l (_J^|.ij (_J.a& cJ^ ^ajoil 

ListBoxl.AddItem oSheet.Name 

J!lk (>a 5-ajlall j*^lj*Jl .li.) jUii-V Listlodex method -3 

Jljij ^ JjVl jx^Ludl jj.ia4i ^ajsj ListBoxl.ListIndex = 0 

.Default value 

(_y.al.aJI iJjAaJI ^Jal _)3^1 i^'x-Lilall _)3^ 

Jj£JI ^ 4 

Private Sub CommandButtonl_Click() 

Selected_Sheet = ListBoxl.Value 
Unload Me 

Worksheets(Selected_Sheet).PrintPreview 
End Sub 

(j^.lj o_).uil^ U^oxJI A£.l.i]al^ ,d_)lllaJJI U^oail (_]^ ^ ‘'j' ■» ‘" 

^l^aJiuil ■.'j 4jjljt..a (3'aC- 

Private Sub CommandButtonl_Click() 

Unload Me 

Worksheets(ListBoxl.Value). Printout 
End Sub 
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12“24 (J^ tjVI 


^ jLajll 



Figurel2-24 


i. U-vM A 

j ComboBox J^) j^Ur- List Box iia.'i 

4-a^l Ijj^ (illjilj Unload Me Jiiiaji V (CheckBox 

■ Unload Me Jjs Selected_Sheet J^'a? 
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Multi-Select ListBox ^1121 ^ JJ*iA2) jbiiVI 

di 2 ^l (j-u^ _j‘ i^j/k List Box 

:Cj 1 jl^ dj!>lj ^_gic. 5^lall ftjiA (jl Jsti.V .12-25 La£ Mutiselect 

Jaaa.ia.lj jl^V iftTiMultiSelectSingle -1 
(> j^' :fmMultiSelectMulti -2 
(> j^' :fmMultiSelectExtended -3 

.CTRL 



Figurel2-25 
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jj (JSjuoIIj <>ul-allj Cy^ Ajj^L^I ^j£^<ia1I 

3!>Lk j^jj^ jl^l .MultiSelect property -S' c> 

^UJl ^1 j^l ^ Jlill ^jill JU^I 

ListBoxl.MultiSelect = fmMultiSelectMulti 

(JSjuall L<iS jljikV' 3^1^ (3^ C-JjujLiaII L^^LujJ 

.12-26 


Private Sub UserForra In 

ListBoxl.MultiSelect = 

End Sub s 

m 

0 

itialize () 

I 

fmMultiSelectExtended 

fmMultiSelectMulti 

fmMultiSelectSingle 




Figure 12-26 


jjjlIa]! jLil^Vt ^ 4^11]) Jl!u 

3^ List Box ^^ixIaII jljikV' ^l^i^duol 311^ 12-27 cJ^^' 

a\\ 3a3lS 1 AC-ljJall 3^ AJjIjL^ ^ 3-^ 4^3^ cl^ 3^ 


Figurel2-27 


UserFormS 


X 


I Sheetl 

EiBSCT 

Sheet 3 

Sheet 4 


id 


Print selec^d pages 
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j' fmMultiSelectMulti j^' j^'j (>^L^1 (> 

. fmMultiSelectExtended 

AA^ ^ Cy^J <C.ljJa]l j j t3_J^ (_^^)]a (_jc. Ac.l.AJa]l ^ -i. Uj (_J^jl 

l^jij <-_a jjoi tljAaJI 4^L3L<a 4^1^)^! ^ 


Private Sub CommandButtonl_Click() 

Unload Me 

For i = 0 To ListBoxl.ListCount -1 
If ListBoxl.Selected(i) Then 
Sheets(ListBoxl.List(i)).PrintPreview 
End If 


Next i 
End Sub 


Value .ixj ListBoxl 4^mi ^^■' Liji L^j 

For.Next jlj^l 41*^ LLa.liJLuil UjU ^UlUj 4^a^ (j-a UJ% 

(jl£ \'Ak ^Selected 4^liJl iJ^lL 

_^sjujI (JjoSJ ^C-Lllall A^IjlaII ^xSj 
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Combo Box 


Input L)-^' JU.^1 j List Box ^ U Combo Box 5^1ill 

^l£^l ^jLkHja^l ^Uac.1 2^ilalujj Combo Box (j-<i <S Box 

^Lllkl A^I£^I Jl AiLjaVl-J ^)j^l-ix]l 

_ Liqa ^2)-^ ^Lil^VI (^5-^ i 

^iIuoa]! 4^11]) JIIa 

List Box aJ^joiIaII <^1111 ^^ikiudj J (^Ludll (JHaII ^ 

^ Uil JiiJi liA ^) j^\ ^ Combo Box ^Ij^U ^ ci-^ 

(j'jj' «.L<uj)Ij SJAuiIoII <Ajla]l AjjjUJ ^ ^ .(COmboBOXl J^J <-ajlai] ^_gjJalJjs'il 

ciLl.1^1 ^Lul^^l (J^l^ (Jlj^l i&LLa.l^JLuil (J^oxil 

Private Sub UserForm_lnitialize() 

Dim oSheet As Worksheet 
For Each oSheet In ActiveWorkbook.Worksheets 
ComboBoxl.AddItem oSheet.Name 
Next oSheet 

ComboBoxl.ListIndex = 0 
End Sub 

^J- I Lij) IjA Ja^V 

ComboBoxl.ListIndex = 0 
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Private Sub CommandButtonl_Click() 
Unload Me 

Sheets(ComboBoxl.Value).PrintPreview 
End Sub 


_^AuiLii1I 4-ajlall ^ ^jJ V 4ja^!)Lall 


Print Form 


X 

1 Sheetll 

X 




Print Selected Page | 




Figurel2-28 


4^ajkl] Style 4.Jjy<aL^I ^ ‘'J ^ 

.fmStyleDropDownList 
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5 Microsoft Visual Basic for Applications - forms2-listbox.xlsm - [forms2-listbox.xlsm - UserForm9 (U... — 

@ File Edit View insert Format Debug Run lools Add-Ins Window Help 
® El id . *9 > a j ^ 1 , =F =F _ '1 1 

Project - VBAProject 

■ ^ijj] _j 


□ 


X 

_ i5 X 


g] Sheetl (Sheetl) 
a Sheet2 (Sheet2) 
m sheets (Sheets) 
a Sheet4 (Sheet4) 
a Sheets (Sheets) 
a Sheets (Sheets) 
a Sheet? (Sheet?) 

Properties - ComboBoxI 


x] 


ComboBoxI ComboBox 
Alphabetic | Categorized | 




I ShowDropButtonWhen 2 - fmShowDropButtonWhenAlways 

gpedalgfted 


Tabindex 

TabStop 


^2 - TmspeciaiETtectsunken 

dePropDownList 





Tag 




Print Form 




3 


a '''''''''u''''''''' a 


Print Selected Page 


Figurel2-29 


Text Box o-alil 

(j-a ^(_^l (j-a (jLkjV 5^liLall (JjLuijll ^j-a 

La^ 


u'jjc. (jS-a-all ^j-a iControlSouTce - 

6J)\ g hjj i-JC.^ 

.0=^' (j^ :MaxLength - 

^ jiajai ^ jjSI jl JLi-jl True 5^a^ ijiulS lil ; Multi Line 

sljU^ jaSaai] iTextAlligne - 
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UserFormZ 

X 

Problem 

Cor^uter keeps restarting 



Description 

We have encountered a problem 
whereby your computer automatically 
restarts at random intervals without 
warning! 



Figurel2-30 


^ ^\ (j-^ ^ 12-31 

_AJajklill (JaxJI /\]_ Aj\^\l 
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^ jLajll 


^ Aj ^ cLl.1^1 ^ ^ ^jil c3j^ cJ'Oxi 


Private Sub CommandButtonl_Click() 
MsgBox TextBoxl.Value 
End Sub 


4_k^L^I dlA^I ■V ^ ^ '. n''\l ' 

Private Sub CommandButton2_Click() 

Range("Al").Value = TextBoxl.Value 
End Sub 


^jj Ls^) 2: 


CjUI^I 12-32 

.(_JSji 1]1 ^ jAlia jA La£ Sheetl cJ-^l 

^aIoII ^aJojLj ^ajojVi JaC-i La^ ^'''^ cJ'aaJ 

Product 5 ^' (_>aUJl Name_box :,^V1 Product Name 


.Desc_box Description 
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A4 


ProdU'Ct 3 


1 

Product Name 

Description 

2 

Product 1 

Product 1 description 

3 ^ 

Product 2 

Product 2 description 

4 

Product 3 1 

[product 3 description 

5 



6 ' 



7 



8 



9 



10 



11 



12 



13 



14 



15 



16 



17 



18 



19 



20 




21 


Products Form 


Prod yet NIame 


Description 


Product 3 



Cancel 


Figurel2-32 


^ ^ ‘ " tjAaJl ^jal l^)ij OK (3_J^ 


Private Sub CommandButtonl_Click() 
last_row = Cells(Rows.Count, l).End(xlUp).Row 
With SheetsC'sheetl") 

.Cells(last_row + 1,1) = Name_box.Value 
.Cells(last_row + 1, 2) = desc_box.Value 
End With 
End Sub 


196 




























: j cWj 

(JjVI fjk dlljl^ (.5^ ‘ ^ ^ Vjl 

last_row = Cells(Rows.Count, l).End(xlUp).Row 

(J^L^ i}j^\ 4_ll^ ’'J ^_>laxull 1^ (J'*^ ‘ ^ 

(> <4^ ^ Jj'^ <J^ fj% Cells(Rows.Count, 1). 

.Row t> |»aj ^jj .End(xlUp) 

CjUI^I cJ^jj U' i_JjlL.a]l (Jj'il Jj.a*JI ^_gk dlUl^ (_jJc. (_^jia.j ‘ ^ USjC. (jl .1*J 

^ dlUl^ C5^) (_).iaLiJI e.i 

^aLo]! I_(J dlLjl^l uL$ 

(j!>Li. (j.a ^ j Jj.a3«Jl ^ '-S-J 

With SheetsC'sheetl") 

.Cells(last_row + 1,1) = Nanne_box.Value 
.Cells(last_row + 1, 2) = desc_box.Value 
End With 


t> fj With SheetsC'sheetl") t> 4^ c4jj c^' ^jj^' 

(jj^ ^J J (JjVl Jj^asdl (_L.^ (jl^ (j/uKil U.iAi. (jjJljll (jj^>iajaill (j!>Li. 

12~33 l)^ ‘ (_J t ^ (_j.a dlljL^I -^ ' ^ jj ^jLkial ^ . ^a^\l ^^j.a 
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Products Form X 


Product Name 


Description 


Add Poduct Gear Form Cancel 


Figurel2-33 


Ujjijx IjSj jSjl ^ Clear Form Clr_Button jj 

;dj^l J^j ^ J jSlI 

Private Sub Clr_Button_Click() 

Name_box.Value ="" 
desc_box.Value ="" 

End Sub 


jl^ ^^uUl ^ JJ ^Ljaj 

]_2~ ‘ ^JJ tJ a 1 ^jj 4^ajail J' ^cjla]| ^J ^A^JLoloI] ^LajoiU 

‘'J(J-^ ^ a. >«i ^ ^joil ^j.a& PrOdUCt ID V ^7^ 4jljJaJj 34 

Add Product jjj o-al^t -ij^t Product ID A ^u ij]lj id box <iac.lj (jjLuill 
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^ jLajll 


Private Sub Add_Button_Click() 

If WorksheetFunction.Countlf(Range("A:A"), id_box.Value) > 0 Then 
MsgBox ("Duplicate ID!! please use non duplicate ID ...") 

Exit Sub 
End If 

last_row = Cells(Rows.Count, l).End(xlUp).Row 
With SheetsC'sheetl") 

.Cells(last_row + 1,1) = id_box.Value 
.Cells(last_row + 1, 2) = Nanne_box.Value 
.Cells(last_row + 1, 3) = desc_box.Value 
End With 
End Sub 


ip <Li^ LLaAiJLail 

If WorksheetFunction.Countlf(Range("A:A"), id_box.Value) > 0 Then 
MsgBox ("Duplicate ID!! please use non duplicate ID ...") 

Exit Sub 
End If 
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dulS lil Lft Count If ^Ia^JLujIj ip aIa^ ^)JajudH 

^)^-lalljua3 dulS liLs /\ jc| bOX ^tlliAll (j^l (^ 

■ Exit Sub ^j<a ^ ^ \-N. ‘i/'^l <,aja]| jjl-J Ua^ 'ULuij 


|^l!i]l^ ^jj^tull dlljl^ ^3^ ;_><aLk]l AjI^I 


Private Sub Clr_Button_Click() 
id_box.Value ="" 
Name_box.Value ="" 
desc_box.Value ="" 

End Sub 
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